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Introduction 

Niklaus Wirth designed the programming language Pascal in 1968 as a vehicle for teaching the 
fundamentals of structured programming and as a demonstration that it was possible to efficiently 
and reliably implement a "non-trivial" high level language. Since then, Pascal has established itself 
as the dominant programming language in university-level computer science courses. It has also 
become an important language in commercial software projects, especially in systems program- 
ming. 

Hewlett-Packard Standard Pascal (HP Pascal) is a company-standard language cunrently im- 
plemented on several Hewlett-Packard computers and is a superset of American National Stan- 
dards Institute (ANSI) Pascal. 

This section outlines the organization of this manual and summarizes the differences between 
Pascal and HP Pascal. The experienced Pascal programmer may use these summaries as a guide 
for further study of unfamiliar features. 

Manual Organization 

This manual is a Language Reference for HP Pascal. Here you will find a description for each 
keyword (reserved words and standard identifiers) recognized by HP Pascal. In addition to the 
keywords, this manual contains entries for topics important to HP Pascal but not necessarily related 
to a particular keyword. 

After the keyword section, you will find "implementation" sections. These sections describes HP 
Pascal for your particular computer. This information includes the minimum and maximum ranges 
for numeric values, restrictions on the sizes of variables, compiler options, system programming 
extensions, and error codes. 

Notation 

Throughout this document, HP Pascal reserved words and directives appear in uppercase letters, 
e.g. BEGIN, REPEAT, FORWARD. Standard identifiers appear in lowercase letters, in a typewriter- 
like type-stv;le, e.g. re ad In, maxint, text. General information conceming an area of programming 
(a topic) appears as an entry with initial capitalization, e.g. Scope, Comments, Standard Procedures 
and Functions. 
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Where to Start 

If you are totally unfamiliar with the Pascal programming language, this manual is not the place to 
start learning. Like a dictionary, a reference contains the facts, but trying to learn a language by 
reading its dictionary is a very difficult task. There are many introductory texts available that make 
learning Pascal much more enjoyable. 

If no other book is currently available, do not try to read this manual from cover to cover. Start, 
instead, by reading the topics covered in this manual. Here is a partial list to get you started. 

• Symbols, Identifiers, and Reserved Words 

• Operators, Numbers, and Expressions 

• Constants, Types, and Variables 

• Statements, Assignment, Procedures, and Functions 

• Programs and Modules 

When you have read all of the topics and studied the keywords, you may be able to write a working 
program. Be sure to also read the implementation section of this manual. There are several 
examples of working programs throughout this manual. However, there are more "partial" exam- 
ples which only show the area of interest for a particular keyword. 

If you are familiar with Pascal but not HP Pascal, you may only need to refer to the implementation 
section of this manual. However, HP Pascal has features not found in other implementations. See 
the next section and the topics describing strings and modules. 

If you are familiar with HP Pascal, start reading the implementation section at the back of this 
manual. The keyword section may prove handy when you want to check the syntax or semantics of 
a particular keyword. 



HP Standard Pascal 

The following is a list of the HP Pascal features which are extensions of ANSI Standard Pascal. For 
the full description of a feature, refer to the appropriate keyword or topic. 

Originally, the term "string" referred to any PACKED ARRAY OF char with a starting index of 1. 
HP Pascal, however, supports the standard type s t r i n s. To avoid confusion, the term PAC is used 
for the type PACKED ARRAY OF o h a r. 

Assignment Compatibility 

If Tl is a PAC variable and T2 is a string literal (or PAC variable), then T2 is assignment compatible 
with Tl provided that T2 is not longer than Tl. If T2 is shorter than Tl, the system will pad Tl with 
blanks. 

If Tl is real and T2 is Ions real, the system truncates T2 to real before assignment. 

CASE Statement 

The reserved word OTHERWISE may precede a list of statements and the reserved word END in a 
CASE statement. If the case selector evaluates to a value not specified in the case constant list, the 
system executes the statements between OTHERWISE and END (see CASE). Also, subranges may 
appear as case constants. 

Compiler Options (Directives) 

Compiler options appear between dollar signs ($). HP Pascal has five options: ANSI, PARTIAL- 
EVAL, LIST, PAGE, and INCLUDE. The ANSI option sets the compiler to identify in the listing 
when source code includes features which are not legal in ANSI Standard Pascal. PARTIAL_EVAL 
permits the partial evaluation of boolean expressions. LIST allows the suppression of the compiler 
listing. PAGE causes the listing to resume on the top of the next page. INCLUDE specifies a source 
file which the compiler will process at the current position in the program. 

Other options are implementation defined. See the implementation section of this manual for 
complete details. 

Constant Expressions 

The value of a declared constant may be specified with a constant expression. A constant express- 
ion returns an ordinal value and may contain only declared constants, literals, calls to the functions 

ord, chr, pred, succ, hex, octal, binary, and the operators +» -, *, DI',', and MOD. 

A constant expression may appear anywhere that a constant may appear. 

Constructors (Structured Constants) 

The value of a declared constant can be specified with a constructor. In general, a constructor 
establishes values for the components of a previously declared array, record, string or set type. 
Record, array, and string constructors may only appear in a CONST section of a declaration part of 
a block. Set constructors, on the other hand, may also appear in expressions in executable state- 
ments and their typing is optional. 
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Declaration Part 

In the declaration part of a block, you can repeat and intermix the CONST, TYPE, and VAR 
sections. 

Halt Procedure 

The halt procedure causes an abnormal termination of a program. 

Heap Procedures 

The procedure marK marks the state of the heap. The procedure release restores the state of the 
heap to a state previously marked. This has the effect of deallocating all storage allocated by the new 
procedure since the program called a particular mark. 

Identifiers 

The underscore character (_) may appear in identifiers, but not as the first character. 

File I/O 

A file may be opened for direct access with the procedure open. Direct access files have a maximum 
number of components, indicated by the function maxpos, and the current number of written 
components, indicated by the function lastpos. The procedure seeK places the current position of 
a direct access file at a specified component. Data can be read from a direct access file or write to it 
with the procedures readdir or writedir, which are combinations of seek and the standard 
procedures read or write. A textfile cannot be used as a direct access file. 

A file may be opened in the "write-only" state without altering its contents using the procedure 
append. The current position is set to the end of the file. 

Any file may be explicitly closed with the procedure close. 

To permit interactive input, the system defines the primitive file operation set as "deferred get". 

The procedure read accepts any simple type as input. Thus, it is possible to read a boolean or 
enumerated value from a file. It is also possible to read a value which is a packed array of c h a r or 

string. 

The procedure write accepts identifiers of an enumerated type as parameters. An enumerated 
constant may be written directly to a file. 

The function position returns the index of the current position for any file which is not a textfile. 
The function linepos returns the integer number of characters which the program has read from or 
written to a textfile since the last line marker. 

The procedures p a s e , o u e r p r i n t , and prompt operate on textfiles. P a s e causes a page eject when a 
text file is printed. Oiierprint causes the printer to perform a carriage return without a line feed, 
effectively overprinting a line. Prompt flushes the output buffer without writing a line marker. This 
allows the cursor to remain on the same screen line when output is directed to a terminal. 
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Function Return 

A function may return a structured type, except the type file. That is, a function may return an array, 
record, set or string. 

Longreal Numbers 

The type l o n s r e a 1 is identical with the type real except that it provides greater precision. The letter 
"L" precedes the scale factor in a longreal literal. 

Minint 

The standard constant minim is defined in the HP Pascal. The value is implementation dependent. 

Record Variant Declaration 

The variant part of a record field list may have a subrange as a case constant. 

String Literals 

HP Pascal permits the encoding of control characters or any other single ASCII character after the 
sharp symbol (#). For example, the string literal #G represents CTRL-G (i.e. the bell). A character 
may also be encoded by specifying its value (0..255) after the sharp symbol. For example, #7 
represents CTRL-G. 

String Type 

HP Pascal supports the predefined type string. A strins type is a packed array of char with a 
declared maximum length and an actual length that may vary at run time. 

A variable of type s t r i n s may be compared with a similar variable or a string literal, or assign a 
string or string literal to a string. 

Several standard procedures and functions manipulate strings. 

• St r 1 en returns the current length of a string; 

• St rmax the maximum length. 

• St rw r i t e writes one or more values to a string; 

• St r read reads values from a string. 

• St rpos returns the position of the first occurrence of a specified string within another string. 

• s t r 1 1 r i III and s t r r t r i m trim leading and trailing blanks, respectively, from a string. 

• St r rpt returns a string composed of a designated string repeated a specified number of times. 

• St rappend appends one string to another. 

• St r returns a specified portion of a string, i.e. a substring. 

• Setstrlen sets the current length of a string without changing its contents. 

• St rmoue copies a substring from a source string to a destination string. 

• Strinsert inserts one string into another. 

• Str delete deletes a specified number of characters from a string. 
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WITH Statement 

The record list in a WITH statement may include a call to a function which returns a record as its 
result (see WITH). 

Numeric Conversion Functions 

The functions binary, octal, and h e x convert a parameter of type s t r i n s or PAC, or a string literal, 
to an integer. Binar interprets the parameter as a binary value; octal as an octal value; hex as a 
hexadecimal value. 

Modules 

HP Pascal supports separately compiled program fragments called modules. Modules may be used 
to satisfy the unresolved references of another program or module. 

Typically, a module "exports" types, constants, variables, procedures, and functions. A program 
can then "import" a module to satisfy its own references. 

This mechanism allows commonly used procedures and functions to be compiled separately and 
used by more than one program without having to include them in each program. 

See MODULE. 



abs 



This function computes the absolute value of its argument. 



^^ABS) *\(^) ^ expression 



Semantics 

The function ahs(x) computes the absolute value of the numeric expression x. If x is an integer 
value, the result will also be an integer. 

A error may result from taking the absolute value of m i n int. 

Examples 

Input Result 

abs(-13) 13 {11-116*6? result} 

ab5( -7. 11 ) 7. llOOOOE+00 



AND 



This boolean operator returns t rue or f al se based on the logical AND of the boolean factors. 



oolean ^ ^ txm ^ ^ boolean 
factor I * \ f*"^ J — *\ factor 



Semantics 

The logical AND is shown in this table. 



XandY 

false 
false 
false 
true 



X Y 

false false 

false true 

true false 

true true 

Example Code 

i.'AR 

bitBt bit? : boolean! 
counter : integer! 

BEGIN 

t t I 

IF bitB AND bit? THEN counter := 0! 

t ♦ 1 

IF bits AND (counter = 0) THEN bit? 
END 



: = true! 



append 



This procedure allows data to be added to an existing file. 



-> ( APPEND ) ->(T)-> ] i^entifl 



V- a/^ Iphysical 

^ n specif! 



tO- 



I ./0\ ^1 options I J 
^ n string | 



Item 


Description/Default 




Range Restrictions 


file identifier 


name of a logical file 




file cannot be of type text 


physical file specifier 


name to be associated with f; must be a string 
expression or PAC variable 


- 


options string 


a string expression or PAC variable 




implementation 
dependent 



Examples 



appBrid( f i le_uar) 

append (file. uar(Ph'/_file_5Pec) 

append (file_MartPhy_file_5PecfOPt_5tr) 

append(fyart'SHORTFILE'). 



Semantics 

The procedure append(f) opens file f in the write-only state and places the current position im- 
mediately after the last component. All previous contents of f remain unchanged. The eof(f) 
function returns true and the file buffer f^ is undefined. Data may now be written on f. 



If f is already open, append closes and then reopens it. If a file name is specified, the system closes 
any physical file previously associated with f. 
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Illustration 

Suppose examp_file is a closed file of char containing three components. In order to open it and 
write additional material without disturbing its contents, we call append. 

{initial condition} 



PAS 



state: closed 



append(examp_file); 



current position 



i 



PAS 



state: write-only 
examp_file'^: undefined 
eof(examp_file): true 
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arctan 



This function returns the principal value of the angle which has the tangent equal to the argument. 
This is the arctangent function. 



—t-(^ ARCTAN~)— ^'{T)— - 



numeric 
expression 



YO- 



Examples 

Input 

arctari(riuiii_exp) 
arctan (2) 
arctan(-a.002) 



Result 

1.107149E+00 
-1.3259aE+00 



Semantics 

The result is in radians within the range -tt/2..it/2. This function returns a real for integer or real 
arguments, and longreal for longreal arguments. 
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An array is a fixed number of components which are all of the same type. 



array type 
i dent i f ier 



PACKED 



P 



■*(kmAy)—-(Ty ■ 



O 



ordinal 
type 



^*— ^ value 



I 



<D-<Z>* 



type 



K~X 



value 



Semantics 

Array Declarations 

An array type definition consists of the reserved word ARRAY, an index type in square brackets, the 
reserved word OF, and the component type. The reserved word PACKED may precede ARRAY. It 
instructs the compiler to optimize storage space for the array components. 

A computable index designates each component of an array. 

The index type must be an ordinal type. The component type may be any simple, structured, or 
pointer type, including a file type. The symbols (. and .) may replace the left and right square 
brackets, respectively. 

An array type is a user-defined structured type. 

A component of an array may be accessed using the index of the component in a selector. 

In ANSI Standard Pascal, the term "string" designates a packed array of char with a starting index 
of 1 . HP Pascal defines a standard type s t r i n s which is identical with a packed array of c h a r except 
that its actual length may vary at run time. To distinguish these two data types, the acronym PAC 
will denote 



PACKED ARRAY [1. ,ri] OF char; 
throughout this manual. 
The maximum number of elements is implementation defined. 

Permissible Operators 

assignment: : = 



relational 
(string or 
PAC): 



t ■■■. / 1 /- ) 
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Standard Procedures 

array para- p a c K t u n p a c k 
meters: 



Example Code 



TYPE 

nafflE 
list 
St ranSe 
fla3 
files 



= PACKED ARRAY CI.. 30] OF chari {PAC type} 

ARRAY CI . ,100] OF integer I 

ARRAY Ch 00 lean] OF oharj 

ARRAY C(redt white* blue)] OF 1..50; 

ARRAY CI. .10] OF text! 



Multi-Dimensioned Arrays 

If an array definition specifies more than one index type or if the components of an array are 
themselves arrays, then the array is said to be multi-dimensioned. The maximum number of array 
dimensions is implementation defined. 



TYPE 

{ e q Li i ij a 1 e n t definitions of truth } 
truth = ARRAY CI. .201 OF 

ARRAY CI.. 5] OF 

ARRAY CI. .10] OF boolean ! 
truth = ARRAY CI.. 20] OF 

ARRAY C1..5t 1..10] OF boolean! 
truth = ARRAY CI. .20. 1..5] OF 

ARRAY CI.. 10] OF boolean! 



t ruth 



ARRAY C1..20( 1..5t 1..10] OF boolean! 



Array Constants and Array Constructors 

An array constant is a declared constant defined with an array constructor which specifies values for 
the components of an array type. 

An array constructor consists of a previously defined array type identifier and a list of values in 
square brackets. Each component of the array type must receive a value which is assignment 
compatible with the component type. 



Array Constant: 



array type 
ident If ier 



H3>C 



■O 



^*-^ constant — ^ OF J — ^ 



structured 
constant 



<i>* 



Within the square brackets, the reserved word OF indicates that a value occurs repeatedly. For 
example, 3 OF 5 assigns the integer value 5 to three successive array components. The symbols (. 
and .) may replace the left and right square brackets, respectively. An array constant may not 
contain files. 
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Array constructors are only legal in a CONST section of a declaration part. They cannot appear in 
other sections or in executable statements. 

An array constant may be used to initialize a variable in the executable part of a block. You may 
also access individual components of an array constant in the body of a block, but not in the 
definition of other constants (see Array Selector). 

Values for all elements of the structured type must be specified and must have a type identical to the 
type of the corresponding elements. 



Example Code 

TYPE 

boolean-table = ARRAY [1,,5] OF boolean; 

table = ARRAY [1,.100] OF inteSer! 

row = ARRAY [ 1 . .5] OF integer i 

(iiatriK = ARRAY [1..5] OF row! 

color = ( r e d t '/ e 11 w ) b 1 u e ) i 

color_5trinS = PACKED ARRAY [1..B] OF chari 

CO 1 r_ar ray = ARRAY [color] OF c o 1 o r_s t nn S i 

CONST 

true-ualues = boolean^t abl e [5 OF trueli 
init_ualuesl = table [100 OF 01! 
init_values2 = table [BO OF 0< 40 OF li; 
identity = matrix [row [It . • < ] » 

row [ . It . ( ] ( 
row [ ( t It t ] t 
row [0 t t t It 0] I 
row [0 t . t t 1 ] ] ; 
colors = color_array [ c o 1 o r_5 t rin 3 ['RED't 3 OF ' 'It 

oolo r_5t rinJ [ 'YELLOW ] t 
color_5t rin3 [ 'BLUE' . 2 OF ' ']] i 

In the last example, the type of the array component is char, yet both string literals and characters 
appear in the constructor. This is one case where a value (string literal) is assignment compatible 
with the component type (char). Alternatively, you could write 

colors = color_array[ 'RED' t 'YELLOW t 'BLUE'] i 

for the last constant definition. 

The name of the previously declared literal string constant may be specified within a structure 
constant. 

CONST 

red = 'red ' i 

yellow = 'yellow'; 

blue = 'blue ' ! 

colors = color-array [ col o r_5t rlnS[ red] i 

colo r_st rinS[ye 1 low] i 
c.olo r_st rin 3[blue] ] ! 
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Array Selector 

An array selector accesses a component of an array. The selector follows an array designator and 
consists of an ordinal expression in square brackets. 



array type 
identif ier 



ordinal L^/TV.^ 
expression ^ 



The expression must be assignment compatible with the index type of the array. An array designa- 
tor can be the name of an array, the selected component of a structure which is an array, or a 
function call which returns an array. The symbols (. and .) may replace the left and right brackets, 
respectively. The component of a multiply-dimensioned array may be selected in different ways 
(see example). 

For a string or PAC type, an array selector accesses a single component of a string variable, i.e. a 
character. 



Example Code 



PROGRAH show-arravselectori 
TYPE 

a_t'/pe = ARRAY [1..10] OF inteSeri 
UAR 



(ti 111 

siliiP-array 
m Li 1 1 i - a r r a y 
p 
BEGIN 



i n t e S e r i 

ARRAY [1..3] OF 1..100i 

ARRAY [1..5tl..l0] OF inteser! 

"a-type i 



m : = 5 i m p _ a r r a y [ 2 ] i 

t 

fii u 1 1 i _ a r r a y [ 2 ) 9 ] : = mi 
(iiijlti_array[2] [9] : = m 



{Assisns current value of 2rid } 

{ooinponent of simp_array to m . } 

{These are > 

{ e =1 u i 1.1 a 1 e n t . > 



ri:= p"[(ii MOD 10 + 1] * m {Dynamic array with computed } 
END. { selector. > 
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Assignment 



An assignment statement assigns a value to a variable or a function result. The assignment state- 
ment consists of a variable or function identifier, an optional selector, a special symbol (: = ), and an 
expression which computes a value. 







variable 
identifier 








-r- 


Ty- 


expression 








1 u 


k -V 






selector 


) 






^ - 


f unct ion 
Ident 1 f ler 















The receiving element may be of any type except file, or a structured type containing a file type 
component. An appropriate selector permits assignment to a component of a structured variable or 
structured function result. 

The type of the expression must be assignment compatible with the type of the receiving element 
(see below). 

Types must be identical except when an implicit conversion is done, or a run-time check is 
performed which verifies that the value of the expression is assignable to the variable. 

Example Code 

FUNCTION shoui-assi Sn: inteSer; 

TYPE 

rec = RECORD 

f : 1 n t e 3 e r ; 
3 : real i 

end; 

index = 1 . . 3 i 

table = ARRAY [index] OF integer; 

CONST 

ct = table [10 t 20 . 30] ; 
cr = rec [f:2» 3:3. 0]? 



iJAR 



1 n t e 3 e r i 
t a b 1 e i 
index ! 
rec i 



a: 

i : 

r : 

Pl . 

p : ■ i n t e 3 e r i 

5 1 r : 5 1 r i n 3 [ 1 ] ; 



FUNCTION shoy_s t met ured : reci 
BEGIN 

5 h w _ 5 1 r u c t u r e d . f : = 2 i 
s h w _ 5 1 r u c t u r e d : = c r j 
5houi_as5 i 3n := 50! 

end; 



{A55i3ntoa } 

{part of the record* } 

{whole record) } 

{outer function. } 
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BEGIN {show-assisn} {Assisn to a > 

5:=5ii:=3! {simple uariablet } 

a ! = ct ; {array variable i } 

a [i] != s + 5i {subscripted array variable* } 

r:=cri {record yariablet > 

r,f:=5i {selected record u aria b lei } 

p := pli {pointer yariablet > 

p" ;= r.f - a Eili {dynamic yariablet } 

str := 'Hi!'i {st rins variabl e t } 

show.assiJn := p''! {function result variable. } 

end; {show_as5i 3n} 



Assignment Compatibility 

A value of type T2 may only be assigned to a variable or function result of type Tl if T2 is 
assignment compatible with Tl. For T2 to be assignment compatible with Tl, any of the following 
conditions must be true: 

1. Tl and T2 are type compatible types which are neither files nor structures that contain files. 

2. Tl is r e a 1 or 1 n s r e a 1 and T2 is i n t e s e r or an integer subrange. The compiler converts T2 
torealorlonsreal prior to assignment. 

3. Tl is 1 n s r e a 1 and T2 is real. The compiler converts T2 to l o n s r e a 1 prior to assignment. 

4. Tl is real and T2 is ions real. The compiler rounds T2 to the precision of Tl prior to 
assignment. 

Furthermore, a run-time or compile-time error will occur if the following restrictions are not 
observed: 

If Tl and T2 are type compatible ordinal types, the value of type T2 must be in the closed interval 
specified by Tl. 

If Tl and T2 are type compatible set types, all the members of the value of type T2 must be in the 
closed interval specified by the base type of Tl. 

A special set of restrictions applies to assignment of string literals or variables of type string, PAC, 
or char (see below). 

Special Cases 

The pointer constant NIL is both type compatible and assignment compatible with any pointer type. 
The empty set [] is both type compatible and assignment compatible with any set type. 
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String Assignment Compatibility 

Certain restrictions apply to the assignment of string literals or variables of the type string, packed 
array of char (PAC), or char. 

1. If Tl is a string variable, T2 must be a string variable or a string literal whose length is equal to 
or less than the maximum length of Tl. T2 cannot be a PAC or char variable. Assignment 
sets the current length of Tl. 

2. If Tl is a PAC variable, T2 must be a PAC or a string literal whose length is less than or equal 
to the length of Tl. Tl will be blank filled if T2 is a string literal or PAC which is shorter than 
Tl. T2 cannot be a string or a char variable. (See table below.) 

3. If Tl is a char variable, T2 may be a char variable or a string literal with a single character. T2 
cannot be a string or PAC variable. 

The following table summarizes these rules. The standard function s t riiiax(s) returns the maximum 
length of the string s. The standard function st rl eri(s) returns the current length of the string s. 

String constants are considered string literals when they appear on the right side of an assignment 
statement. 

Any string operation on two string literals, such as the concatenation of two string literals, results in a 
string of string type. 



String, PAC, and String literal Assignment 



T1: = T2 


string 


PAC 


char 


String 
Literal 


string 


Only if 

strmax(Tl) > = 
strlen(T2) 


Not 
allowed 


Not 
allowed 


Only if 

strmax(Tl) > = 
strlen(T2) 


PAC 


Not 
allowed 


Only if 

Tl length > = 

T2 length 

T2 is padded 
if necessary 


Not 
allowed 


Only if 

Tl length > = 

strlen(T2) 

T2 is padded 
if necessary 


char 


Not 
allowed 


Not 
allowed 


Yes 


Only if 
strlen(T2) = 1 



Note 

The s t r 1 en function can only be used with strings, not PAC's. 
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BEGIN 



This reserved word indicates the beginning of a compound statement or block. 



— »^BE6In ) * - statement ' »( 



■^end)-«> 



Semantics 

BEGIN indicates to the compiler that a compound statement or block follows. 

Example Code 

PROGRAM show.beSini iripi.it t output); 

MAR 

r u n n i n S : b o o 1 e a n i 
it J : inteSeri 

BEGIN 
i : = ; 
J := 1 ; 

rurminS := true! 
writeln { 'Bee Dick run. ' ) i 
wri teln ( 'Run DicK run. ' ) ! 
IF running then 
BEGIN 

I := i + li 
J := J - 1 i 

end; 
end; 

END. 
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binary 



This function converts a binary string expression or PAC into an integer. 



- < BINARY ) -,^7) H^I^a ->(T)-^ 



Item 



binary string 



Description/Default 



string expression or PAC variable 



Range Restrictions 



implementation 
dependent 



Examples 

Input 

binary ( st rnS) 
binary( '10011 ') 
-binary ( '10011 ' ) 



Result 

19 

-19 



If your particular implementation used 32-bit 2's complement notation, the following example 
would also work. 

biriary( '11111111111111111111111111101101 ') -19 

Semantics 

The string or PAC is interpreted as a binary value. 

The three numeric conversion functions are binary, hex, and octal. All three accept arguments 
which are string or PAC variables, or string literals. The compiler ignores leading and trailing blanks 
in the argument. All other characters must be legal digits in the indicated base. 

Since binary, hex, and octal return an integer value, all bits must be specified if a negative result is 
desired. Alternatively, you may negate the positive representation. 



A block is syntactically complete section of code. 
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Blocks 







r 








^ 


1 




p 
















i 


I 


label 
declanatlon 


constant 
declaration 




procedure 
declarat ion 






























type 
declaration 




f unct ion 
declaration 










' 


















variable 
declaration 






















module 
dec larat ion 




















import 

list 













<D-n 



^~->/bEGIn) * » statement I »^END Y-»- 



Semantics 

There are two parts to a block, the declaration part and the executable part. Blocks may be nested. 
All objects appearing in the executable part must be defined in the declaration part or in the 
declaration part of an outer block. 



Note 

MODULE declarations and IMPORT lists can not appear in inner 
blocks, (i.e. in procedures or functions) 
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boolean 



This predefined ordinal type indicates logical data. 



— »/booleanV-*- 



Example 

'v'AR 

1 oues_(iie : boo lean i 

HP Pascal predefines the type boolean as: 

TYPE 

boolean = (false* true)! 

The identifiers false and true are standard identifiers, where true > false. 

Boo 1 Ban is a Standard simple ordinal type. 

Permissible Operators 

assignment: : = 

boolean: AND , OR . NOT 

relational: < t <= i = » < > , > = t > t IN 

Standard Functions 

boolean argument: otd > p r e d » s u c o 

boolean return: eoft eoln; odd 



CASE 



The CASE statement selects a certain action based upon the value of an ordinal expression. 
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— »'(^case)— *• 



express ion 




O 



constant 



C^— 



constant 



tMDHJ 



^^^ 



-*^ OTHERWISE y^-*- 



<D-i 



statement 



Semantics 

The CASE statement consists of the reserved word CASE, an ordinal expression (the selector), the 
reserved word OF, a list of case constants and statements, and the reserved word END. Optionally, 
the reserved word OTHERWISE and a list of statements may appear after the last constant and its 
statement. 

The selector must be an ordinal expression, i.e. it must return an ordinal value. A case constant may 
be a literal, a constant identifier, or a constant expression which is type compatible with the selector. 
Subranges may also appear as case constants. 

A case constant cannot appear more than once in a list of case constants. Subranges used as case 
constants may not overlap other constants or subranges. 

Several constants may be associated with a particular statement by listing them separated by 
commas. 

You need not bracket the statements between OTHERWISE and END with BEGIN.. END. 

When the system executes a CASE statement: 

1. It evaluates the selector. 

2. If the value corresponds to a specified case constant, it executes the statement associated 
with that constant. Control then passes to the statement following the CASE statement. 

3. If the value does not correspond to a specified case constant, it executes the statements 
between OTHERWISE and END. Control then passes to the statement after the CASE 
statement. A run time error occurs if you have not used the OTHERWISE construction. 
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Example Code 



PROCEDURE scanner i 
BEGIN 

Set_next_chari 
CASE current_char OF 
a t 1 z t 

' A ' 1-11, 
n ♦ * i_ 1 

5can_wo rd i 



{Subrange label. } 



'0'., '9': 

5 c a n _ n u m b e r i 

OTHERWISE 5can_5Pecial ! 

end; 
end; 



FUNCTION octal.disit 
( d: disi t ) : boolean ; 
BEGIN 

CASE d OF 

0.,7: octal- disit 
8. .9: octal. disit 

end; 
end; 



{TYPE disit = 0..g} 



true; 
false; 



FUNCTION OP 

(operator 

ope randl 

ope rand2 

: real i 

BEGIN 

CASE operator OF 



{TYPE ope rato rs= ! plus (iiiin us t times (dill ide ) } 
ope rato rs i 

real ) 



plus: 
(II i n u s : 
t i III e s : 
d i 1.1 i d e ; 

end; 
end; 



OP 
OP 
OP 
OP 



operandi 
ope randl 
OPS randl 



p e r a n d 2 
ope rand 2 
ope rand2 



operandi / operand2 
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char 

This predefined ordinal type is used to represent individual characters. 



The char type allows the 8-bit ASCII character set. 
A pair of single quote marks encloses a c h a r literal. 

Permissible Operators 

assignment: : = 

relational: < > <= > = > <> > > = t > t IN 

Standard F'unctions 

char argument: ord 

char return: c h r i p r e d » s u o c 



Example Code 

UAR 

d _ y Li : c h a r i 



BEGIN 

d _ y u : = " 

end; 
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chr 



This function converts an integer numeric value into an ASCII character. 



— »^CHR~V- •/TV- »■ argumen 



Item 


Description/Default 


Range Restrictions 


argument 


integer numeric expression 


thru 255 



Examples 

Input 

ch r ( X ) 
chr(63) 
chr(82) 
chr(13) 

Semantics 



Result 



'R' 

(carriage return) 



The function ch r(x) returns the character value, if any, whose ordinal number is equal to the value 
of X. An error occurs if x is not within the range 0..255. 
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close 



This procedure closes a file from further access. 



— > {close) -»>(T)-»>(~ 



file 
ident if ier 



I ^/ ^ ^1 options I J 

^ n string | 



<iy- 



Item 


Description/Default 


Range Restrictions 


file identifier 
options string 


name of a logical file 

a string expression or PAC variable 


implementation 
dependent 



Examples 

c 1 s e ( f i 1 _ I.I a r ) 
closed' il_uar)OPt_str) 

Semantics 

The procedure c l o s e(f) closes the file f so that it is no longer accessible. After close, references to 
the function eof (f) or the buffer variable (f^) will result in an error, and any association of f with a 
physical file is dissolved. 

When closing a direct access file, the last component of the file will be the highest-indexed compo- 
nent ever written to the file (la5tpos(f)). The value of maxpos for the file, however, remains 
unchanged. 

Once a file is closed, it may be reopened. Any other file operation on that file will produce an error. 

Option String 

The options string specifies the disposition of any physical file associated with the file. The value is 
implementation dependent. The compiler ignores leading and trailing blanks and considers upper 
and lower case equivalent. If no options string is supplied, the file retains its previous (original) 
status. 



28 



Comments 



Comments consist of a sequence of characters delimited by the special symbols { and }, or the 
symbols (* and *). The compiler ignores all the characters between these symbols. Comments 
usually document a program. 



■© 



K 






commentary 



<>> 




») 



Examples 



< cofiiiTieri t } 
( * c fi) III e n t ♦ ) 
{ coimitent*) 
i { { { c m (ii e n t } 
{This coituitent 
occupies more than one line.} 



Semantics 

A comment is a separator and may appear anywhere in a program a separator may appear. A 
comment may begin with { and close with *), or begin with (* and close with }. 



Nested comments are not legal, however, a comment may cross a line boundary in source code. 
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CONST 



This resen/ed word indicates the beginning of one or more constant definitions. 



— *(const)-J 



■J — m identifie 



KH> 



constant 



f — I — ^ constant r 

IJ structured | J 



■o- 



Semantics 

Constant definitions appear after the program header (any LABEL declarations) and before any 
procedure or function definitions. In HP Pascal, CONST, TYPE, and VAR definitions may be 
intermixed. 

Example Code 

PROGRAM show-CQNSTi 
LABEL I! 



TYPE 
t y pel 
t >' p e 2 
St rl 



i n t e i e r 1 
boolean; 
s t r i n 3 [ 5 ] i 



CONST 

constl = 3.1415i 

conslZ = truei 

str const = strlE'abcde']; 



MAR 



u a r 1 



t v p e 1 i 



BEGIN 
END. 
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Constants 



A constant definition establishes an identifier as a synonym for a constant value. The identifier may 
then be used in place of the value. The value of a symbolic constant may not be changed by a 
subsequent constant definition or by an assignment statement. 

The reserved word CONST precedes one or more constant definitions. A constant definition 
consists of an identifier, the equals sign ( = ), and a constant value. (See CONST.) 



Constant: 



Structured Constant: 



constant 
expression ,^ 



— »^ ' J-^ — ^ character —I — ^ ' ) — *■ 

<NiD 





array 

constant 




* 


' 








record 
constant 










\ , 


set 

constant 







The reserved word NIL is a pointer value representing a nil-value for all pointer types. Declared 
constants include the standard constants (naHint and ininiiu as well as the standard enumerated 
constants true and false. 

Constant expressions are a restricted class of HP Pascal expressions. They must return an ordinal 
value which is computable at compile time. Consequently, operands in constant expressions must 
be integers or ordinal declared constants. Operators must be +, -, *, DIV, or MOD. All other 
operators are excluded. Furthermore, only calls to the standard functions o rd, c h r, p re d, s uc c, ab s, 
hex. octal, and binary are legal. 

Floating-point values are not allowed in constant expressions. 

One exception to the restrictions on constant expressions is permitted: you may change the sign of 
a real or longreal declared constant using the negative real unary operator ( - ). The positive 
operator ( -I- ) is legal but has no effect. 

A constructor specifies values for a previously declared array, strin s, record, or set type. Subse- 
quent pages describe constructors and the structured declared constants they define. 



Constant definitions must follow label declarations and precede function or procedure declarations. 
You can repeat and intermix CONST sections with TYPE and VAR sections. 
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Example Code 



CONST 

finSers = 10 i {Unsigned inteSer. } 

Pi = 3.1415; {Unsigned real. } 

(ri e s 5 a S e = ' U 5 e a f o r k ! ' ! { S t r 1 n 3 1 i t e r a 1 . } 

n 1 h i n 3 = NIL! 

d e 1 i c i i.i s = t r u e ! { S t a n d a r d c n s t a n t . > 

ne3_pi = -pi" {Real unarv operator. } 

hands = finsers DIU 5! {Constant enpression. } 

nuiitforks = pred(hands)i {Constant expression with } 

{call to standard function. } 
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COS 



This function returns the cosine of the angle represented by its argument (interpreted in radians). 
The range of the returned value is - 1 thru + 1. 



— ^COS V- »r(V-» argument —*\))—^ 



Item 


Description/Default 


Range Restrictions 


argument 


numeric expression 


implementation 
dependent 



Examples 

Input 

co5(x_rad> 
co5(l.B2) 



Result 



-/l,91836E + 00 
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Directives 



A directive may replace a block in a procedure or function declaration. 



-* ( PROCEDli^TH iTe°n"'M/r 



^ . T — "^ ; )— ] — ^ block 1 > 

^ ^^-»>( forward) ^ 



^ n parameter list | ^yj_^ f 

'^-^^ FORWARD J — ' 



In HP Standard Pascal, the only directive is FORWARD. The FORWARD directive makes it 
possible to postpone full declaration of a procedure or function. Additional directives may be 
provided by an implementation. 

The term FORWARD may appear as an identifier in source code and, at the same time, as a 
directive. 

FORWARD Directive 

The FORWARD directive permits the full declaration of a procedure or function to follow the first 
call of the procedure or function. For example, suppose you declare procedures A and B on the 
same level. Both A and B cannot call each other without using the FORWARD directive. 

PROCEDURE Ai FORWARD! 
PROCEDURE B! 
BEGIN 



a; 



{calls A} 



END) 
PROCEDURE Ai {full declaration of A} 
BEGIN 



Bi 



END) 



{calls B} 



After using the FORWARD directive, you must fully declare the function or procedure in the same 
declaration part of the block. Formal parameters, if any, and the function result type must appear 
with the FORWARD declaration. You may omit these formal parameters or result type, however, 
when making the subsequent full declaration (see example below). If repeated, they must be 
identical with the original formal parameters or result type. 

The FORWARD directive may appear with a procedure or function at any level. 
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Example Code 



FUNCTION exclusi!.Je_o r ( x f v : boolean): boolean! 

fornard; 



FUNCTION exclijsi'..fe_o r ! {Parameters not repeated, 

BEGIN 

exclusiue_or:= ( x AND NOT y ) OR (NOT x AND >' i ! 

end; 



dispose 



This procedure indicates that the storage allocated for the given dynamic variable is no longer 
needed. 
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->Qjg°sr)-*(T H i'ent'r^ 






-Qh- 



Item 



pointer identifier 



tag value 



Description/Default 



a variable of type pointer 



a case constant value 



Range Restrictions 



cannot be NIL or 
undefined 

must match case 
constant value specified 

in new 



Examples 

di5P05e(ptr_i.iar) 
dispo5e(ptr_uart tl ». » . tin) 

Semantics 

The procedure disposeip) indicates that the storage allocated for the dynamic variable referenced 
by p is no longer needed. 

An error occurs if p is NIL or undefined. After dispose, the system has closed any files in the 
disposed storage and p is undefined. 

If you specified case constant values when calling new, the identical constants must appear as t 
parameters in the call to dispose. 

The pointer p must not reference a dynamic variable which is currently an actual variable para- 
meter, an element of the record variable list of a WITH statement, or both. 
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Example Code 



PROGRAM show-dispose (output); 
TYPE 

(iiarital_status = (sinslei ensaJedt married) widowed, diuorced)! 
'/ear = 1300. .2100 i 
P t r = ■■' p e r s n _ i n f ! 
person-inf = RECORD 

name: st riri3[253 ! 
b i r d a t e : year! 
n e K t _ p e r s n : p t r I 
CASE status: mari tal_s tat us OF 
m a r r i e d . . d i u r c e d : (when: year! 

CASE has_Kids: boolean OF 
t rue : ( how_many : 1 , ,50) ! 
false: () 
i) ; 
e n S a S e d : (date: year) 
s i n S 1 e : 1 i 

end; 

OAR 

p : pt r ; 
BEGIN 



e w ( p ) ; 



ispo5e( p) ; 



n e w ( p » e n S a 3 e d ) 1 



d i s p s e ( p t e n 3 a =f e d ) ; 



n e w { p t m a r r i e d » f a 1 5 e ) i 



dispose(p>marriedtfal5e) ; 



END. 
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DIV 



This operator returns the integer portion of the quotient of the dividend and the divisor. 



dend — ^ DIV J — ^ divisor — ►■ 



Item 



dividend 
divisor 



Description/Default 



an integer or integer subrange 
an integer or integer subrange 



Range Restrictions 



not equal to 



Examples 

Input 

dMd DIU dur 
413 DIl' G 



Result 

G8 
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DO 



See FOR. WHILE, WITH. 



DOWNTO 



See FOR. 



ELSE 



See IF. 



END 



See BEGIN. 
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Enumerated Types 



An enumerated type is an ordered list of identifiers in parentheses. The sequence in which the 
identifiers appear determines the ordering. The o rd function returns for the first identifier; 1 for the 
second identifier: 2 for the third identifier: and so on. 



Enumerated Type: 



o 



— »y^M * w Identifier —I — *\ ) J — ^ 



There is no arbitrary limit on the number of identifiers that may appear in an enumerated type. The 
limit is implementation dependent. 

Enumerated types are user-defined simple ordinal types. 

Permissible Operators 

assignment: : = 

relational: < > < = » - > <> > > = > > ' I N 

Standard Functions 

enumerated ord) pred* succ 
argument: 

enumerated p r e d » succ 
return: 

Example Code 

TYPE 

days = ( 111 ri d a '/ f t u e s d a ;■' t w e d n e s d a y i 

t h ij, r 5 d a y • f r i d a y t sat u. r d a y • s uri d ay) i 
color = ( r e d 1 S r e e n t bluet y e 1 1 o w • c y a n • m a S e n t a » w h 1 1 e t black)! 
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eof 



This boolean function returns true when the end of a file is reached. 



-*(wy 



^*V(^/— *• variable ~*\ ) j 



Item 



file variable 



Description/Default 



variable of type file 



Range Restrictions 



file must be open 



Examples 

eof 

e f ( f i 1 e _ V a r ) 

Semantics 

If the file f is open, the boolean function eof (f) returns true when f is in the write-only state, when f 
is in the direct access state and its current position is greater than the highest-indexed component 
ever written to f, or when no component remains for sequential input. Otherwise, eof(f) returns 
f a 1 5 e. If f a 1 5 e, the next component is placed in the buffer variable. 

When reading non-character values (e.g. intesers, reals, etc.) from a textfile, eof may remain 
false even if no other value of that type exits in the file. This can occur if the remaining compo- 
nents are blanks. 



If f is omitted, the system uses the standard file i n f 



lit. 
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eoln 



This boolean function returns true when the end of a line is reached in a textfile. 



-<e°ln)i -^zn: r* 

^- ^r?\ ^Itext filel /T\ J 
^ n variaBle | ^>^^,y' 



Item 



textfile variable 



Description/Default 



variable must be a textfile 



Range Restrictions 



file must be open in the 
read-only state 



Examples 

eoln 

e 1 n ( t B X I _ f i 1 e ) 

Semantics 

The boolean function eolri(f) returns true if the current position of textfile f is at an end-of-line 
marker. The function references the buffer variable f^, possibly causing an input operation to occur. 
For example, after re ad In, a call to eoln will place the first character of the new line in the buffer 
variable. 



If f is omitted, the system uses the standard file input. 
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exp 



This real function raises e to the power of the argument. The value used for Naperian e is 
implementation dependent. 



yo- 



Item 


Description/Default 


Range Restrictions 


argument 


numeric expression 


implementation 
dependent 



Examples 

Input 

e H p ( n u (ii _ e X p ) 
exp(3) 
e:xp(8,8E-3) 
e:KP(8,8L-3) 



Result 

2.008553G9231877L+001 

1 . 008B3EIE + 00 

1 .008838833B2898L+000 
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EXPORT 



This reserved word precedes the types, constants, variables, procedures, and functions of a MOD- 
ULE which can be used (IMPORTed) by other programs and modules. 



—*^ EXPORT ^ 



£ 



constant 
declarat ion 



type 
declarat ion 



variable 
declaration 



-* ( PROCEDURE y * \ t^^^^ri 



jre 
ier 



rO 




^/ \ ^1 result tj 
;;~*\_|^^/ n identlfi 



See MODULE. 
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Expressions 



An expression is a construct which represents the computation of a result of a particular type. An 
expression is composed of operators and operands. An operator performs an action on objects 
denoted by operands and produces a value. 

Operators are classified as arithmetic, boolean, relational, set, or concatenation operators. An 
operand may be a literal, constant identifier, set constructor, or variable. Function calls are also 
operands in the sense that they return a result which an operator can use to compute another value. 

The result type of an expression is determined when the expression is written. It never changes. The 
actual result, however, may not be known until the system evaluates the expression at run time. It 
may differ for each evaluation. A constant expression is an expression whose actual result is 
computable at compile time. 



In the simplest case, an expression consists of a single operand with no operator. 

Examples 



k:= 19 i 



{b imp lest case. "19" is the expression } 
{ 1 n the statement: " :»: : = 19" } 



1 + X ; 



{Arithmetic operator with literal a n d } 
{uariable operands. } 



(A OR B) AND (C OR D) {Boolean operator with boolean operands.} 

>( )■ " { R e 1 a 1 1 n a 1 p e r a t r w i t h 1.1 a r i a b 1 e } 

{operands. } 



; e I A ♦ s e t B ; 
' ice ■' + ■■'o ream' 



{Set operator with uariable operands. } 

{Concatenation o p e r a t o r w 1 1 h s t r i n 3 } 

{literal opera n d s . } 



Syntax 



Express ion: 



integer 
express ion 



real 
express ion 



boolean 
express ion 



str ing 
express ion 



set 
express i on 
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Expression 



s imp le 
expression 



■*<E>- 






3imple J 



expression 



Simple Expression 






i 






WjlH 



factor 



■0— f 



—*^ DIV )— - 



^>-»>{ and) — ^ 



Simple Set Expression: 



■e-n 



set 
f a c t; o r 



-e 




<i)-^ 



set 
factor 
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unsigned 
constant 



•( ( ) — ^ expression — ^ ) j- 



U 



set type 
ident i f ier 



rr 



<I> 



^UOIJ—^ facte 



express ion 



■o- 



-r<D-- 



constant 
ident i f ier 



^ ^ ( ) — ^ expression -^ 



o 



express i on 



s_/'~V-J field 

^ n identifl 



-()>T 



f unct ion 
ident i f ier 



parameter 

list 



i-^^ 




-0-^ 



expressio 



ly^Or 



/OU-J field 

\__y ~ identifier 

KD 



Relational Expressions Involving Sets: 



simple ordinal 
expression 



s imp le set 
express ion 




simple set 
express i on 



WZ>^ 



Set Factor: 



set 
variable 



simple set /'TN 
expression ^sj^ 



se 
type 



KJ 



^ 



Simple ordinal 
express i on 



k. ^f ^^_^ simple ordinal J 

\^ • ■ y expression 
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false 



This predefined boolean constant is equal to the boolean value false. 

Example Code 

PROGRAM 5how_f alsei output) i 

TYPE 

w h a t t lie : b o o 1 e a n i 

BEGIN 

IF false THEN w ri t e In (' always false t neyer printed')! 

what : = f a I s e i 

lie := NOT true; 

IF what = lie THEN w r i t e In ( ' Woul d 1 lie''); 
END. 
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FILE 



This reserved word designates a declared data structure. 



file type 
ident i f ier 



^■~*\ PACKED J — ^ 



type 
ident i f ier 



Semantics 

A file type consists of the reserved words FILE OF and a component type. See also teMt. 

A logical file is a declared data structure in a HP Pascal program. A physical file is an independent 
entity controlled by the operating system. During execution, logical files are associated with physical 
files, allowing a program to manipulate data in the external environment. 

A logical file is a sequence of components of the same type, which may be any type except a file 
type or a structured type with a file type component. The number of components is not fixed by the 
file type definition. 

File components may be accessed sequentially or directly using a variety of HP Pascal standard 
procedures and functions. 

It is legal to declare a packed file. Whether this has any effect on the storage of the file is imple- 
mentation dependent. 

Example Code 

TYPE 

person = RECORD 

riaiiie: PACKED ARRAY [l.,30] OF char! 
aSe : 1 . . 100 ! 

end; 

per5ori_file = FILE OF person; 

hit_uector = PACKED ARRAY [1..100] OF boolean i 
uect.or_file = FILE OF bit_uectur; 



data_f 1 le 
doc_f i le 



FILE OF integer! 
text; 
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File Buffer Selector 

A file buffer selector accesses the contents, if any, of the file buffer variable associated with the 
current position of a file. The selector follows a file designator and consists of the caret symbol ("). 



Buffer Variahle; 



"1^ 1 >^ ► 

variable [ \^ 



A file designator is the name of a file or the selected component of a structure which is a file. The @ 
symbol may replace the caret. 

If the file buffer variable is not defined at the time of selection, a run time error occurs. 

Example Code 

PROGRAM shQW_buf f erselectori 
MAR 

f : FILE OF iriteJeri 

aib : inteieri 
BEGIN 

a:= f + z; {Assisns current con tents of file } 

{buffer Plus 2 to a, > 

f-;=a + bi {Assigns sum of a and b to buffer } 

, { u a r i a b 1 e . > 

END. 
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Files 



Files are the means by which a program receives input and produces output. A file is a sequence of 
components of the same type. This type may be any type, except a file type or a structured type 
with a file type component. 

Logical files are files declared in a HP Pascal program. Physical files are files which exist indepen- 
dently of a program and are controlled by the operating system. You may associate logical and 
physical files so that a program manipulates data objects external to itself. 

The components of a file are indexed starting at component 1. Each file has a current component. 
The standard procedure read(f,x) copies the contents of the current component into x and adv- 
ances the current position to the next component. The procedure write(f,x) copies x into the 
current component and, like read, advances the current position. 

Each file has a buffer variable whose contents, if defined, are accessible using a selector. 

One of the standard procedures reset, rewrite, append, or open opens a file for input or output. 
The manner of opening a file determines the permissible operations. In particular, reset opens a 
file in the read-only state, i.e. writing is prohibited; rewrite and append open a file in the write-only 
state, i.e. reading is prohibited; and open opens a file in the read-write state, i.e. both reading and 
writing are legal. 

All files are automatically closed on exit from the block in which they are declared, whether by 
normal exit or non-local GOTO. Files allocated on the heap are automatically closed when the file 
or structure containing the file is disposed. All files are closed at the end of the program. 

Files opened with reset, r e w r i t e , or a p p e n d are sequential files. The current position advances only 
one component at a time. Files opened with open are direct access files. You may relocate the 
current position anywhere in the file using the procedure seeK. Direct access files have a maximum 
number of components determinable with the standard function m a x p o s . The maximum number of 
components of a sequential file, on the other hand, is not determinable with a Pascal function. 

Textfiles are sequential files with char type components. Furthermore, end-of-line markers sub- 
structure textfiles into lines. The standard procedure w r i t e 1 n creates these markers. The standard 
files i n p u t and o u t p u t are textfiles. You cannot open textfiles for direct access. 

The following table lists each HP Pascal file procedure or function together with a brief description 
of its action. The third column of the table indicates the permissible categories of files which a 
procedure or function may reference. 



File Procedures and Functions 
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Procedure 
or Function 


Action 


Permissible 
Files 


append 


Opens file in write-only state. Current position is after 
last component and eof is true. 


any 


close 


Closes a file. 


any 


eof 


Returns true if file is write-only, if no component exists 
for sequential input, or if current posifion in direct ac- 
cess file is greater than lastpos. 


any 


eoln 


Returns true if the cun-ent position of a text file is at a 
line marker. 


read-only 
textfiles 


get 


Allows assignment of current component to buffer 
and, in some cases, advances current position. 


read-only or 
read-write files 


linepos 


Returns number of characters read from or written to 
textfile since last line marker. 


textfiles 


lastpos 


Returns index of highest written component of direct 
access file. 


direct access files 


maxpos 


Returns maxint or the maximum component read or 
written. Check implementation. 


direct access files 


open 


Opens file in read-write state. Current position is 1 and 
eof is false. 


any except a 
textfile 


overprint 


A form of write which causes the next line of a textfile 
to print over the textfiles current line. 


write-only 
textfiles 


page 


Causes skip to top of new page when a textfile is 
printed. 


write-only 
textfiles 


position 


Returns integer indicating the current component of a 
non-text file. 


any file except a 
textfile 



52 Files 



Procedure 
or Function 


Action 


Permissible 
Files 


prompt 


A form of write which assures textfile buffers have 
been written to the device. No line marker is written. 


write-only 
textfiles 


put 


Assigns the value of the buffer variable to the current 
component and advances the current position. 


write-only or 
read-write files 


read 


Copies current component into specified variable pa- 
rameter and advances current position. 


read-only or 
read-write files 


readdir 


Moves current position of a direct access file to desig- 
nated component and then performs read. 


direct access files 


readln 


Performs read on textfile and then skips to next line. 


read-only 
textfiles 


reset 


Opens file in read-only state. Current position is 1. 


any 


rewrite 


Opens file in write-only s035tate. Current position is 1 
and eof is true. Old components discarded. 


any 


seek 


Places current position of direct access file at specified 
component number. 


direct access files 


write 


Assigns parameter value to current file component and 
advances current position. 


write-only or 
read-write files 


writedir 


Advances current position in direct access file to de- 
signed component and performs a write. 


direct access files 


writeln 


Assigns parameter value to current textfile component, 
appends a line marker and advances current position. 


write-only 
textfiles 
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Opening and Closing Files 

A program must open a logical file before any input, output, or other file operation is legal. Four file 
opening procedures are available: reset, rewrite, append, or open. When they appear as program 
parameters, the standard textfiles input and output are exceptions to this rule. The system auto- 
matically resets input and rewrites output. 

The procedure reset opens a file in the read-only state without disturbing its contents. After reset, 
the current position is the first component and the program can read data sequentially from the file. 
No output operation is possible. 

The procedure rewrite opens a file in the write-only state and discards any previous contents. After 
rewrite, the current position is the beginning of the file. The program can then write data sequen- 
tially to the file. No input operation is possible. 

The procedure append is identical to the procedure rewrite except that the current position is 
placed after the last component and the file contents are undisturbed. The program can then 
append data to the file. 

The. procedure open opens a file in the read-write state. The contents of the file, if any, are 
undisturbed and the current position is the beginning of the file. The program may then read or 
write data. 

A file opened in the read-write state is a direct access file. Using the procedure seek, the current 
position can be placed anywhere in the file. Furthermore, direct access files permit calls to the 
standard procedures readdir or writedir, which are combinations of seek and the procedures 
read or write. Direct access files have a maximum number of components. The function maxpos 
returns this number. 

In contrast, files opened in the read-only or write-only states are sequential files; the current position 
only advances one component at a time and the maximum number of components cannot be 
determined by a Pascal function. 

The procedure close explicitly closes any logical file and its associated physical file. You need not 
use this procedure, however, before opening a file in a new state. For example, suppose file f is in 
the write-only state and the program calls re5et(f). The system first closes f and then resets f in the 
read-only state. 

The system also closes a file, not on the heap, when the program exits from the scope in which the 
file was declared. The system closes a "heap" file when the d i s po s e procedure uses the pointer to 
the file as a parameter or when the program terminates. 

When a program finishes using an existing file, the file is closed in the same state that it existed when 
it was opened. 

When a program closes a file it has created, the implementation may allow an optional parameter to 
be specified in the c l o s e procedure. This parameter may affect the state of the file after the program 
terminates. 
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I/O Considerations 

The procedures read and write perform the fundamental input and output operations. Read(f,x) 
copies the contents of the current component into x and advances the current position. Write(f,x) 
copies X into the current component and advances the current position. 

The original Pascal standard describes read and write in terms of the buffer variable f and the 
procedures set and put. The procedure put writes the contents of the buffer variable to the current 
component and then advances the position. The procedure set copies the current component to 
the buffer variable and advances the position. 

Thus, the following are equivalent: 

W r i t e ( f . X ) f ■' : = x : 

put ( f ) ; 

And these are equivalent: 



Read(f ,x) 



=(et(f ) ! 



These definitions of Jet and read, however, have certain unfortunate consequences when I/O 
operations occur with interactive devices such as terminals (which were not available at the time 
Pascal was designed). In particular, at the initiation of a program or following a call to readln, the 
system tries to read a response before asking the question (writing a prompt). 

HP Standard Pascal addresses this issue by defining a "deferred" set which postpones the actual 
loading of a component into the buffer variable. When programming, keep these practical implica- 
tions in mind: 

1. Suppose read(f,x) has just placed the value of component n in x. Then a reference to f 
copies the value of component n + 1 into the buffer variable. It isn't necessary to call set 
explicitly. If set is called after a read, however, a reference to r copies the value of 
component n + 2 into the buffer. Component n + 1 is skipped. 

2. The buffer variable is undefined after calls to put, write, seek, writedir, writeln, open, 
rewrite, and append. Before inspecting the current component, you must call set or read 
explicitly. 

3. It is best not to use the buffer variable with direct access files. After read » for example, a 
reference to f places the next component in the buffer even if f " appears on the left side of 
an assignment statement. 

4. When reading a file sequentially, there may come a time when no component is available for 
assignment to x. Calling read in this case will cause a run-time error. You should use eof to 
determine if another component exists. On some files, notably terminals, this may require 
that a device read be performed to request another component. The component is held in 
the files's buffer variable and will be produced as the next result of a call to read. 
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5. If f is a direct access file, e o f (f) is distinct from m a k p o s (f ). In particular e o f is determined by the 
highest-indexed component ever written to f. Maxpos, on the other hand, is a limit on the size 
of the associated physical file. An error occurs if a program attempts to read a a component 
beyond the current eo f . It is always possible, however, to write to a component with an index 
no greater than m a x p o 5 (f ) . This will create a new e f condition if the index of the component 
written is greater than the index of any previously written component. It is never possible to 
write beyond (iiaxpos(f). See the implementation section. 

6. When writing to a direct access file, a program may skip certain components. If the file is later 
read sequentially, these components will have unpredictable values. 

7. In a direct access file, the system doesn't allocate components preceding n until n is written. If 
n is very large and preceded by many unused components, this allocation may take a 
significant amount of time. (Use lower-indexed components in preference to higher-indexed 
components. ) 

Logical Files 

Any file declared in the declaration part of a HP Pascal block is a logical file. Within a program, the 
scope of a file name is the scope of any other HP Pascal identifier. However, you may associate the 
logical file with a physical file that exists outside the program. Then operations performed on the 
logical file are performed on the physical file. 

A logical file consists of a sequence of components of the same type. This type may be any type, 
except the type file or a structured type with a file type component. Every logical file has a buffer 
variable and a current position pointer. 

The buffer variable is the same type as the type of the file's components. It is denoted: 



where f is the designator of the logical file. You can use the buffer variable to preview the value of 
the current component. 

The current position pointer is an integer index, starting from 1. It indicates the component that the 
next input or output operation will reference. The function position returns the value of this index, 
except in the case of textfiles. 

After certain file operations, such as w ri te with direct access files, the buffer variable is undefined. 
You must call set before i^ will access the value of the current position. After other operations, such 
as read, a subsequent reference to f^ will successfully access the current component. No set is 
necessary. 

You may assign the contents of f^ to a declared variable of the appropriate type. Alternatively, the 
value of an expression with an appropriate result type may be assigned to f. 

Textfiles are a special class of logical files substructured into lines (see below). I n p u t and output are 
standard textfiles. 
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You must explicitly open any logical file before performing a file operation, except for input and 
on iPLit when they appear as program parameters (see below). The four file opening procedures are 
reset, rewrite, append, and open (see below). The manner of opening a logical file determines its 
"state". For example, a file opened with append is in the write-only state. No input operation is 
possible. 

You may use the procedures read, write, set, and put, and the function sof, with any appropriate- 
ly opened logical file, regardless of its type. 

Example Code 

PROGRAM show_l Sfi le (input i out put .bf i le ) ! 
TYPE 

book-.info = RECORD 



PACKED ARRAY [1 . .50] OF chari 

PACKED ARRAY [1. .50] OF char! 

1 . .32000! 

( n _ s h e 1 f • c h e c K e d _ o u t 1 1 o s t » o r d e r e d : 



title 

author 
n u If b e r 
status 

end; 

OAR 

1 d _ fa K : boo k _ i n f ! 

bfile : FILE OF book_infoi {Deolanni a losical file. > 

p 5 n u III : 1 n t e S e r i 
BEGIN 



reset( bfile); {Open in 3 logical file which is associate ij > 
{hv default with the file named 'BFILE'. } 

old_book:= bfile"; {AssiSninj buffer y an able to } 

{ d e c 1 a r e d u a r i a b 1 e . } 

POsnufii:= P051 1 ion ( bf i 1 B ) ; iUsinS index of current } 

{ c III p n e n t . } 

END. 

Physical Files 

The operating system controls physical files which exist independently of an HP Pascal program. 
These files may be permanent files on disc or other media, or interactive files created at a terminal. 

A particular physical file may be associated with a logical file declared in an HP Pascal program. The 
type of the logical file determines the characteristics of the physical file. 

Except for textfiles, all physical files associated with Pascal logical files are fixed length binary files. 
The record length of these files depends on the type of the component. 

The system associates textfiles with variable length ASCII files. 
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Textfiles 

Textfiles are a special class of logical files which are substructured into lines by end-of-line markers. 
Textfiles are declared with the standard identifier text. The components of a textfile are type char. 

If the current position in a textfile advances to a line marker (i.e. beyond the last character of a line), 
the function eoln returns true and the buffer variable is assigned a blank. When the current 
position advances once more, a reference to the buffer variable will access the first character of the 
next line and eoln returns false, unless the next line has no characters. An end-of-line marker is 
not an element of type char. Only the procedure y r i t e 1 n places it in a textfile. A line marker always 
precedes an eof condition, whether the last line was terminated with w r 1 1 e 1 n or not. 

The procedures readlti, writeln, paSe, prompt, and ouerprint, and the functions eoln and line- 
pos are available exclusively for textfiles. 

Reading from a textfile may entail implicit data conversion. In certain cases, the operation searches 
the textfile for a sequence of characters which satisfies the syntax for a s t r i n s, PAC, or simple type 
other than char. 

Writing to a textfile may entail formatting of the output value. You can specify a field-width 
parameter or allow the system to use various default field-width values. 

Textfiles cannot be opened for direct access. Their format is incompatible with certain direct access 
operations. 

The system defines two standard textfiles, input and output. 
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FOR 



The FOR statement executes a statement a predetermined number of times. 



— *^FOR^-«- 



loop 
counter 



-<iZIHZSiMLhr< 



TO 



K 



DOWNTO 




value — "\ ^^ J~^ statement 



Item 


Description/Default 


Range Restrictions 


loop counter 


ordinal variable 


must be local to the 

block in which the loop 

appears 


initial value 


ordinal expression 


- 


final value 


ordinal expression 


- 



Semantics 

The FOR statement consists of the reserved word FOR and a control variable initialized by an 
ordinal expression (the initial value); either the reserved word TO indicating an increment or the 
reserved word DOWNTO indicating a decrement; another ordinal expression (the final value); the 
reserved word DO: and a statement. 

The control variable is assigned each value of the range before the corresponding iteration of the 
statement. 

The control variable must be a local ordinal variable. It may not be a component of a structured 
variable or a locally declared procedure or function parameter. The initial and final values must be 
type compatible with the control variable. They must also be in range with the control variable 
when the initial value is first assigned. The statement after DO, of course, may be a compound 
statement. 



When the system executes a FOR statement, it evaluates the initial and final values and assigns the 
initial value to the control variable. Then it executes the statement after DO. Next, it repeatedly tests 
the current value of the control variable and the final value for inequality, increments or decrements 
the control variable, and executes the statement after DO. 

After completion of the FOR statement, the control variable is undefined. 

In a FOR.. TO construction, the system never executes the statement after DO if the initial value is 
greater than the final value. In a FOR.. DOWNTO construction, it never executes the statement if 
the initial value is less than the final value. 
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The FOR statement 

FDR control-uar := initial TO final DO 
statement 

is equivalent to the statement 

BEGIN 

tempi := initial i 
t e III p 2 ! = final! 
IF tefiipl <= tetitpZ THEN 
BEGIN 

G n t r 1 _ M a r : = tempi! 
statement! 

WHILE control_uar <> temp2 DO 
BEGIN 

c n t r 1 _ u a r : = s u c c ( c o n t r o 1 _ u a r ) ! -C i n c r e m e n t } 
statement! 
END! 
END 
ELSE BEGIN END! {Don't execute statement at all!> 
END {control_uar now undefinedi } 

The FOR statement 

FOR control-Mar := initial DOWNTO final DO 
statement 

is equivalent to the statement 

BEGIN 

tempi : = initial! 
t e m p 2 : = final! 
IF tempi >= temp2 THEN 
BEGIN 

c n t r 1 _ i.i a r ! = tempi! 
statement! 

WHILE control_uar <> temp2 DO 
BEGIN 

c n t r I _ u a r : = p r e d ( c o n t r o 1 _ u a r ) ! {decrement} 
statement ! 
END! 
END 
ELSE BEGIN END! {Don't execute statement at all!} 

END {cont rol-uar now undefined. } 

In the statement after DO, the compiler protects the control variable from assignment. You cannot 
pass the control variable as a variable parameter or use it as the control variable of a second FOR 
statement nested within the first. Furthermore, it may not appear as a parameter for the standard 
procedures read or r e a d 1 n . Also, the statement cannot call a procedure or function which changes 
the value of the control variable. 
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The system determines the range of values for the control variable by evaluating the two ordinal 
expressions once, and only once, before making any assignment to the control variable. So the 
statement sequence 

1 := 5i 
FOR i := pred(i) TO suooii) DO w r 1 1 e In ( ' i = ' » i : 1 ) S 

will write 

1=4 
i=5 
i=B 

instead of 

i = n 

1=5 



Example Code 



{'.'AR color: (red- Sreeni bluet yellow) i} 
FOR color := red TO blue DO 
w r i t e 1 n ('Color is ' • color); 



FOR i := 10 DDWNTO DO 
w r i t e 1 ri ( i ) i 
uriteln ( 'Blast Off ' ) i 



FOR i := (a[.j] * 15) TO {f(x) DIU HO) DO 
IF odd(i) THEN 
xli] ;= cosii) 
ELSE 
X [ 1 ] : = s 1 n ( i ) i 
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FUNCTION 



A function is a block which is activated with a function call and which returns a value. A function 
declaration consists of a function heading followed by a block or a directive. 



^ ^ parameter list *\iy ( ' 

^^ 1 — ^ block T 



K 



block T — ^ 

FORWARD ^ — ' 



Formal Parameter List 



— ^fvApP) — ^ 



o 



<D- 



identifier 



/T\_J type 
\jy ~ identifie 



heading 



Heading 



« <7^I0CEDURE ) - H i^d;°n?^Me^r h " 1 

V_fc/7V-J formal l__»/T\_J^ 
^ parameter list | \J_J 



FUNCTION 



iH 



f unct ion 
identif ier 



L.yTv_J formal |_>y7\— -^ 

^ ~ parameter list | ^\Jy 



^fl\ Iresult 
^■>r ^ type 



Item 


Description/Default 


Range Restrictions 


function identifier 


name of a user-defined function 


any valid identifier 


formal parameter list 


see diagram 


- 


result type 


type identifier 


any previously defined 
type 


heading 


see drawing 
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Semantics 

A function heading consists of the reserved word FUNCTION, an identifier (function name), an 
optional formal parameter list, and a result type. The result type may be any type, except a file type 
or a structured type containing a file. 

A directive can replace the function block to inform the compiler of the location of the block. 

In the body of a function block there must be at least one statement assigning a value to the 
function identifier. This assignment statement determines the function result. If the function result is 
a structured type, you must assign a value to each of its components using an appropriate selector. 

Function declarations may occur at the end of a declaration section after label, constant, type, 
variable declarations, and MODULE declarations at the outer level. You may repeat function 
declarations and intermix them with procedure declarations. 
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Function Calls 



A function call activates the block of a standard or declared function. 



Factor Containing a Function 




Semantics 

The function returns a value to the calling point of the program. An operator can perform some 
action on this value and, for this reason, a function call is an operand. 

A function call consists of a function identifier, an optional list of actual parameters in parentheses, 
and an optional selector. 

The actual parameters must match the formal parameters in number, type, and order. The function 
result has the type specified in the function heading. 

Actual value parameters are expressions which must be assignment compatible with the formal 
value parameters. 

Actual variable parameters are variables which must be type identical with the formal variable 
parameters. Components of a packed structure may not appear as actual variable parameters. 

Actual procedure or function parameters are the names of declared procedures or functions. 
Standard functions or procedures are not legal actual parameters. 

The parameter list, if any, of an actual procedure or function parameter must be congruent with the 
parameter list of the formal procedure or function parameter. See the Procedure Statement. 

Functions may call themselves recursively. See Recursion. 

If an actual function or procedure parameter, upon activation, accesses any entity non-locally, then 
the entity accessed is one which was accessible to the function or procedure when its identifier was 
passed. For example, suppose Procedure A uses the non-local variable x. If A is passed as a 
parameter to Function B, then it still has access to x, even if x is otherwise inaccessible in B. 

If the function result is a structured type, then the function call may select a particular component as 
the result. This requires the use of an appropriate selector. 
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Example Code 



PROGRAM show_f unction ( input .on t put 1 ! 
UAR 

n • 

coef t 
answer: i n t e J e r ! 

FUNCTION fact (p: integer) : integer; 
BEGIN 

IF p > 1 THEN 

fact := p ♦ fact (p-1) 
ELSE fact := 1 

end; 

FUNCTION binu(itial_coef (n. r: integer) : inteSpri 
BEGIN 

binonual^coef ;= fact (n) DIU (fact (r) * fact 'n-ri) 
END! 



BEGIN {show_f unction} 

r e a d ( n ) i 

FOR coef := TO n DO 

w r i t e 1 n ( b i n o in i a 1 _ o o e f ( n . c o e f ) ) i 
END. {show-f unct ion> 



get 



This procedure assigns the value of the current component of a file to its argument. 
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identifier | \J^ 



Item 



file identifier 



Description/Default 



variable of type file 



Range Restrictions 



file must be open to read 



Example 

Set(f ile_uar) 

Semantics 

The file must be in the read-only or read-write state. 

The procedure £(et(f) advances the current file position and causes a subsequent reference to the 
buffer variable f^ to actually load the buffer with the current component. In certain circumstances, 
namely after a call to read, set also advances the current position. 

If the current component does not exist when set is called, f will be undefined and eof(f) will 
return t rue. An error occurs if f is in the write-only state or if eo f (f) is t rue prior to the call to set. 

If you open a file, a s e t must be performed before the buffer variable contains valid data. However, 
if you reset a file, the buffer variable contains valid data and a set should not be performed until 
you want to access the second component. 
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Illustration 

Suppose exa(itp_file is a file of char with three components which has just been opened in the 
read-write state. The current position is the first component and examp_file'^ is undefined. To 
inspect the first component, we call set: 

{initial condition for open J 



current position 

i 



a b c 



state : read-write 
examp_file'^: undefined 
eof(examp_file) : false 



get(exampJile): 



current position 

i 



a b c 



state : read-write 

a b c examp-file" (deferred) : a 

eof(examp_file) : false 



The current position is unchanged. Now, however, a reference to e; amp.file loads the first 
component into the buffer. We assign the buffer to a variable. 

char^var: = examp-file'^ 



current position 

i 



a b c 



state : read-write 
examp_file'^ : a 
eof(examp_file) : false 



get(examp_file); 



current position 

i 



a b c 



state : read-write 
examp-file'^l deferred) : b 
eof(examp_file) : false 
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Global Variables 



Global variables are declared in the outermost block of a program or module and are available to all 
of the procedures and functions within the program or module. 

Conversely, "local" variables are declared within a particular procedure or function and their 
"scope" is limited to that procedure or function. 
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GOTO 



A GOTO statement transfers control unconditionally to a statement marked by a label. 



— "-(^GOToV-*" 



Semantics 

A GOTO statement consists of the reserved word GOTO and the specified label. 

The scope of labels is restricted. Labels may only mark statements appearing in the executable 
portion of the block where they are declared. They cannot mark statements in inner blocks. GOTO 
statements, however, may appear in inner blocks and reference labels in an outer block. Thus, it is 
possible to jump out of a procedure or function but not into one. 

A GOTO statement may not lead into a component statement of a structured statement from 
outside that statement or from another component statement of that statement. For example, it is 
illegal to branch to the ELSE part of an IF statement from either the THEN part, or from outside the 
IF statement. 

A GOTO statement which refers to a non-local label declared in an outer routine will cause any 
local files to be closed. 
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Example Code 



PROGRAM show_Soto ; 
LABEL 500 » 501! 
TYPE 

i ri d e X = 1 ♦ . 1 1 
UAR 

i : index! 
tarset: inteSeri 
a: ARRAYEindex] OF iiUeieri 
PROCEDURE check ; 
MAR 

arisye r: strinS [10]i 
BEGIN 

{asK user if OK to search} 

IF ai-iswer= 'no' THEN GOTO 501! {JuiiiPinS out of procedure} 

end; 

BEGIN {show.Soto} 
check; 

FOR i != 1 TO 10 DO 

IF target = aCi] THEN GOTO 500; 

write In ( ' Not found ' ) ; 

GOTO 501 ; 
500 : 

w r i t e 1 n ( ' F o u n <i ' ) j 
501: 
END. -Cshow-Soto} 
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halt 



This procedure terminates the execution of the program. 



' \^ ~ expression \,Sy 



Examples 

halt 

h a 1 1 ( i n t _ e X p ) 

Semantics 

Execution of a program is stopped by the h a 1 1 procedure. When an integer expression is included, 
the operating system will return the integer value in an error message. 



71 



Heap Procedures 



HP Pascal distinguishes two classes of variables: static and dynamic. 



A static variable is explicitly declared in the declaration part of a block and may then be referred to 
by name in the body. The compiler allocates storage for this variable on the stack. The system does 
not deallocate this space until the process closes the scope of the variable. 

On the other hand, a dynamic variable is not declared and cannot refer to by name. Instead, a 
declared pointer references this variable. The system allocates and deallocates storage for a dyna- 
mic variable during program execution as a result of calls to the standard procedures new and 
dispose. The area of memory reserved for dynamic variables is termed the "heap". 

HP Pascal also supports the standard procedures niarK and release. Marf; records the state of the 
heap. A subsequent call to release returns the heap to the state recorded by ma rK. Effectively, this 
disposes any variables allocated since the call to mark. 

Dynamic variables permit the creation of temporary buffer areas in memory. Furthermore, since a 
pointer may be a component of a structured dynamic variable, it is possible to write programs with 
dynamic data structures such as linked lists or trees. 

Depending on implementation. marK and release may not perform any action. 
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hex 



This function converts a hexadecimal string expression or PAC into an integer. 



xadecimal | ^ / T ^ ^ 
string [ ^^Jy ^ 



Item 



hexadecimal string 



Description/Default 



string expression or PAC variable 



Range Restrictions 



implementation 
dependent 



Examples 

Input 

hex ( St rri3) 
he:K{ 'FF') 
-hex( -FF') 



Result 

255 
-255 



If your particular implementation used 32-bit 2's complement notation, the following example 
would also work. 



heK( 'FFFFFFOl ■■ ) 
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Semantics 

The function hex(s) converts s to an integer. S is interpreted as a hexadecimal value. 

The three numeric conversion functions are binary, hex, and octal. All three accept arguments 
which are string or PAC variables, or string literals. The compiler ignores leading and trailing blanks 
in the argument. All other characters must be legal digits in the indicated base. 

Since b i n a r y , h e x , and o c t a 1 return an integer value, all bits must be specified if a negative result is 
desired. Alternatively, you may negate the positive representation. 
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Identifiers 



An HP Pascal identifier consists of a letter preceding an optional character sequence of letters, 
digits, or the underscore character (_). 



digit — » 



Examples 

G00D-TIf1E-9 
SoQd_t i (ne_9 
3QDd_TI(iie_9 



{These identifiers } 
{are > 

{ e ■=! u i u a 1 e n t . > 



x2_G0 

a_lori3_idetUif ie r 

boolean {Standard identifier.} 

Semantics 

Identifiers denote declared constants, types, variables, procedures, functions, and programs. 

A letter may be any of the letters in the subranges A..Z or a..z. The compiler makes no distinction 
between upper and lower case in identifiers. A digit may be any of the digits through 9. The 
underscore (_) is an HP Standard Pascal extension of ANSI Standard Pascal. 

An identifier may be up to a source line in length with all characters significant. 

In general, you must define an identifier before using it. Two exceptions are identifiers which define 
pointer types and are themselves defined later in the same declaration part, and identifiers which 
appear as program parameters and are declared subsequently as variables. Also, you need not 
define an identifier which is a program, procedure, or function name, or one of the identifiers 
defining an enumerated type. Its initial appearance in a function, procedure, or program header is 
the "defining occurrence". Finally, HP Pascal has a number of standard identifiers which may be 
redeclared. These standard identifiers include names of standard procedures and functions, stan- 
dard file variables, standard types, and procedure or function directives. 

Reserved words are system defined symbols whose meaning may never change. That is, you 
cannot declare an identifier which has the same spelling as a reserved word. 
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IF 



An IF statement specifies a statement the system will execute provided that a particular condition is 
true. If the condition is false, then the system doesn't execute the statement, or, optionally, it 
executes another statement. 



^Gl>-*C^^}-<™5^ 



statement 



^-*\ else) — *■ statement ' 



The IF statement consists of the reserved word IF, a boolean factor, the reserved word THEN, a 
statement, and, optionally, the reserved word ELSE and another statement. 

When an IF statement is executed, the boolean factor is evaluated to either true or false, and one of 
the three actions is performed. 

1. If the value is true, the statement following THEN is executed 

2. If the value is false and ELSE is specified, the statement following the ELSE is executed. 

3. If the value is false and no ELSE is specified, execution continues with the statement 
following the IF statement. 

The statements after THEN or ELSE may be any HP Pascal statements, including other IF state- 
ments or compound statements. No semicolon separates the first statement and the reserved word 
ELSE. 

The following IF statements are equivalent: 

IF a = b THEN 
IF a = h THEN BEGIN 

IF c = d THEN IF c = d THEN 

a := c a := c 

ELSE ELSE 

a : = e ! a : = e i 

END! 

That is, ELSE parts that appear to belong to more than one IF statement are always associated with 
the nearest IF statement. 

A common use of the IF statement is to select an action from several choices. This often appears in 
the following form: 

IF el THEN 

) + I 

ELSE IF e2 THEN 

t 1 * 

ELSE IF e3 THEN 
ELSE 
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This form is particularly useful to test for conditions involving real numbers or string literals of more 
than one character, since these types are not legal in CASE statements. 



It is possible to direct the compiler to perform partial evaluation of the boolean expressions used in 
an IF statement. See the compiler directives for your particular implementation. 

Example Code 

PROGRAM show-if ( input t output)! 



MAR 
i f J 
s 
found 



i n t e 3 e r i 

PACKED ARRAY [1..5] OF chari 

bool ean i 



BEGIN 



IF i = THEN write In ( 'i = 0') ! 
IF found THEN 

write In ( 'Found it ' ) 
ELSE 

wri teln ( 'Still lookinS' ) i 



{IF with no ELSE, } 
{IF with an ELSE part. } 



IF i = J THEN 

w r i t e 1 n ( ' i = J ' ) 

ELSE IF i < J THEN 

w r i t e 1 n ( ' i < J ' ) 
ELSE {i > j} 

w r i t e I n ( ' 1 > J ' ) i 



{Select amons different) 
{boolean expressions. } 



IF s = 'RED' THEN 

i := 1 
ELBE IF 5 = 'GREEN' THEN 

i := 2 
ELSE IF 5 = 'BLUE' THEN 
i := 3i 
END. 



{This IF statement } 
{cannot be rewritten as} 
{a CASE statement } 
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IMPLEMENT 



This reserved word indicates the beginning of the internal part of a MODULE. The implement 
section may be empty or it may contain declarations of the types, constants, variables, procedures, 
and functions that are only used within the module. 



—t^ IMPLEMENT }— >- 



See MODULE. 
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IMPORT 



This reserved word indicates which modules will be needed to compile a program or module. 



—*^ IMPOR^r)-- 



o-^ 



module 
ident i f ier 



See MODULE. 
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IN 



This operator returns true if the specified element is in the specified set. 



element / ^^. "\ set 

identifier ^^ JN ^ » identifier 



Item 


Description/Default 


Range Restrictions 


element identifier 
set identifier 


expression of an ordinal type 
expression of type SET 


see semantics 
see semantics 



Example 

IF Item IN set_of_items THEN processi 

Semantics 

Both the element being tested and the elements in the setmust be of the same type. 
The result is false if the object is not a member of the set. 

Example Code 

PROGRAM 5hDij_ir,(ontpijt) ; 

'v'AR 

ch : char i 
300 d : set of char! 
more : set of char! 
member : b o o 1 9 a n i 

BEGIN 
c h : = ' y ' i 

S d : = [ ' y ' t ' Y ' t ' n ' t ' N ' ] i 
more : = [ ' a ' . ■ ' z ' ] ! 
IF ch IN sood THEN 

ffl ember : = it u e 
ELSE 

member : = '' a 1 s e i 
w r 1 1 e 1 n ( m ember) i 
END. 
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input 



The standard textfiles input and output often appear as program parameters. When they do, there 
are several important consequences: 

1. You may not declare mput and output in the source code. 

2. The system automatically resets i n p u t and rewrites o u t p u t . 

3. The system automatically associates input and output with the implementation dependent 
physical files. 

4. If certain file operations omit the logical file name parameter, mput or output is the default 
file. For example, the call read(x), where x is some variable, reads a value from input into x. 
Or consider: 

PROGRAM titute ( input) i 

UAR answer : 5trin3[255]; 

BEGIN 

r e a d 1 n ( a n s w e r ) ! 
END. 

The program waits for a something to be typed. No prompt can be written without adding o ut put to 
the program heading. 
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integer 



This type is a subrange whose lower bound is the standard constant minim and whose upper 
bound is the standard constant max int. 



— »^ integer')— » 



Examples 

UAR 

wholeriLifii: iiteieri 
i t J t k ) 1 : i "I t e i e r i 

Semantics 

line 3e r is a standard simple ordinal type whose range is implementation defined. 

Permissible Operators 

assignment: : = 

relational: < , <= . = » <> , > t >= , IN 
arithmetic: +, -, *, /> DIU. MOD 

Standard Functions 

integer argument: abs) arctan. chr. cos) exp» in* oddt ord. pred. sint sqrt 

5 q r t t s u c c 

integer return: abs* binary » hexi linepost lastpost inaxpos) octal* ordt 

position) predt roundt strlen> strmaKi strposi sqrt trunc 



LABEL 



A label declaration specifies integer labels which mark executable statements in the body of the 
block. The GOTO statement transfers control to a labeled statement. 
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Label Declaration: 



^ 



label) -J- 




unsigned 
integer 



Labelled Statement; 



unsigned 
integer 



unlabel led 
statement 



Semantics 

The reserved word LABEL precedes one or more integers separated by commas. 

Integers must be in the range to 9999. Leading zeros are not significant. For example, the labels 9 
and 00009 are identical. 

Label declarations must come first in the declaration part of a block. 

You cannot use a label to mark a statement in a procedure or function nested within the procedure, 
function, or outer block where the label is declared. This means a GOTO statement may jump out 
of but not into a procedure. 

The Label declaration must occur in the declaration part of the block which contains the label. 

Example 

LABEL 9( 19 » 40 ; 
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lastpos 



This function returns the integer index of the last component of a file which has been written. 



—> ( LASTPOS ) -i>(T H ,,,^;|^, 



Item 



file identifier 



Description/Default 



a file type variable 



Range Restrictions 



file must be opened in 
the read-write state 



Example 

lastPos ( f i le_iiar) 

Semantics 

The function 1 a s t f o s (f ) returns the integer index of the last component of f which the program may 
access. An error occurs if f is not opened as a direct access file. 
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linepos 



This function returns the number of characters read from or written to a textfile since the last 
end-of-line marker. 



^(iiNi^>HSHI^7^Il-<D-^ 



Item 



textfile identifier 



Description/Default 



a textfile 



Range Restrictions 



textfile must be opened 



Example 

linepo5(text_file) 

Semantics 

The function l i n e p o s (f ) returns the integer number of characters read from or written to the textfile 
f since the last end-of-line marker. This does not include the character in the buffer variable f. The 
result is zero after reading a line marker, or immediately after a call to r e a d 1 n or w r i t e 1 n . 

The standard files in put or output must be specified by name. 
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In 



This function returns the natural logarithm (base e) of the argument. 



--(T7)-*Q--; 



Item 



argument 



Description/Default 



numenc expression 



Range Restrictions 



must be greater than 



Examples 

Input 

1 n ( n u III _ e X p ) 
In (43) 
In ("2, 121) 
1 n ( ) 

Semantics 



Result 

3.7B1200E+00 
7.51887ilE-01 
{error} 



The function 1 n (x) computes the natural logarithm of x. If x is or less than 0, a run-time error 
occurs. 
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Local Variables 



Local variables are variables declared within a particular procedure or function and their "scope" is 
limited to that procedure or function. 

Conversely, "global" variables are declared in the outermost block of a program or module and are 
available to all of the procedures and functions within the program or module. 
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longreal 

This standard simple type represents a subset of real numbers. 



— t^LDNGREAL}— »- 



Semantics 

Lonsreal is a standard simple type. Although similar in usage to the real type, the letter "L" is used 
to indicate the start of the exponent instead of the letter "E", (See below.) 

Permissible Operators 

assignment: : = 

relational: . < = - = . < > > > = . > 

arithmetic: + t - » * > / 

Standard Functions 

longreal a b s < a r c t a n t c o s » e x p i 1 n • round* s i n » s q r > s q r t j t r u n c 
argument: 

longreal re- abs* arctan. cosi expt In. sin* srt smt 
turn: 

Example Code 

UAR 

p r e c 1 5 e n u (ii : 1 o n S r e a 1 i 
BEGIN 

precisenum: = 1 . 1 234567B91L+ lOiJ ! 
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mark 



This procedure marks the state of the heap. 



— » ( hark) — (T)->{^ 



leap 
narker 



Item 



Description/Default 



Range Restrictions 



heap marker 



a pointer variable 



Usage 

(II a r k ( p t r _ V a r ) 

Semantics 

The procedure ma rK(p) marks the state of the heap and sets the value of p to specify that state. In 
other words, mark saves the state of the heap in p, which must not subsequently be altered by 
assignment. If altered, you will be unable to perform the corresponding release. 

The pointer variable appearing as the p parameter must be a dedicated variable. It should not be 
dynamic variable. 

Mark is used in conjunction with release. See the example under release. 
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maxint 

This standard constant returns the largest value that can be represented by the i n t e se r type. 

—* ^ MAXINT ^) — » 

Semantics 

The constant m a x i n t returns the largest value that can be represented by an integer. The value is 
implementation dependent. 

Example Code 

PROGRAM 5how_iiiaKirit ( input toutput ) i 

UAR 

1 I J : i n t e S e r i 
r : real ! 

BEGIN 

r e a d 1 n ( i t J ) i 

r : = i + J i 

IF r > inaKint THEN w ri t e 1 n ( 'Sum too larse for in t e 3e rs . ' ) ? 
END. 
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maxpos 



This function returns the index of the last accessible component of a file. 



— ( MAXPOS ) -*<T)-* n^entlf i 



Item 


Description/Default 


Range Restrictions 


file identifier 


name of a logical file 


file must be opened 



Example 

III a X p 5 ( f i 1 e _ u a r ) 

Semantics 

The function m a x p o s (f ) returns the integer index of the last component of f which the program could 
possibly access. An error occurs if f is not opened as a direct access (read-write) file. 

For extensible files, max po 5(f) returns the value of niaxim. 
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minint 

This standard constant returns the smallest value that can be represented by the inte 3e r type. 
— » ^ MININT^) — *- 

Semantics 

The constant m i n i n t returns the smallest value that can be represented by an i n t e s e r. The value is 
implementation dependent. 

In general, the range of signed integers allows the absolute value of minint to be greater than 
maxint. 

Example Code 

PROGRAM s h ow_fT) i n i n t ( i n put • o ut put ) i 

VAR 

i t J : i n t e Se r i 
r : real; 

BEGIN 

r e a d 1 n ( i t J ) i r : = i - J ! 

IF r < (iiinint THEN w r i t e 1 n ( ' Di f f e rence too larSe for in t e ie rs . ' ) ! 
END. 



This operator returns the remainder of an integer division. 



MOD 



Item 


Description/Default 


Range Restrictions 


dividend 
divisor 


an integer or integer subrange 
an integer or integer subrange 


greater than 
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Examples 

Input 



dus MOD iJi.ir 
a MOD 3 
7 MOD 5 



Result 
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MODULE 



This reserved word indicates the beginning of a separate unit of compilation. 



— *^ MODULE )— » 



module 
identifier 



ho 



I 



u 



import 
dec larat ion 



rr 



expc 
declara 



"J't'ion h K ! IMPLEMENT 



constant 

declarat ion 



type 
declarat ion 



van iable 

declaration 



JG 



procedure 
dec larat ion 



function 
declarat ion 



< 



END 



LqJ 



Note: When modules are 
being compiled separately. 
the last module in a file 

Note: Procedure/function ^ust end witn a period. 

declarations need not 

duplicate information 

contained in the EXPORT 

1 ist . 



Example 

MODULE mod-Id 



Semantics 

A MODULE can be compiled separately or included in the compilation of a program. The general 
form of a module is shown in the following example. 
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Example Code 

MODULE show_(iiodule; {Module declaration } 

IMPORT (ir/_iTiodi.ile i {Other modules needed for } 

{compilation of this module } 

EXPORT {Start of enport text > 

TYPE 

b'/te = 0i.255i {Exported type > 

i.'AR 

testb'/te : bvtei {Exported uariable > 

FUNCTION controHi : byte) : boolean! {Exported function > 

IMPLEMENT {Start of implementation } 

TYPE 

boot = 0..255; {Non-exported type > 

PROCEDURE cheoKd s byte)! {Non-expo rted procedure > 

BEGIN 

IF i > 127 THEN w ri t e In ( ' non-ASCI I character')! 
END! 

FUNCTION controlCi :byte) : boolean! {Exported function > 
BEGIN 

IF i < 32 then control := true 

ELSE control := false! 
END! 

END. 
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Modules 

A module provides a mechanism for separate compilation of program segments. 

Semantics 

A module is a program fragment which can be compiled independently and later used to complete 
otherwise incomplete programs. A module usually defines some data types and variables, and 
some procedures which operate on these data. Such definitions are made accessible to users of the 
module by its export declarations. 

The source text input to a compiler (complete unit of compilation) may be a program or a list of 
modules separated by semicolons (;)■ An implementation may allow only a single module to be 
compiled at a time, thus requiring multiple invocations of the compiler to process several modules. 
The input text is terminated by a period. 

A module is a collection of global declarations which may be compiled independently and later 
made part of a program block. Any module used by a program whether appearing in the program's 
globals or compiled separately, must be named in an import declaration. Modules, and the objects 
they export, always belong to the global scope of a program which uses them. 

A module cannot be imported before it has been compiled, either as part of the importing program 
or by a previous invocation of the compiler. This prevents construction of mutually-referring 
modules. Access to separately compiled modules is discussed below. 

Although a module declaration defines data and procedures which will become globals of any 
program importing the module, not everything declared in the module becomes known to the 
importer. A module specifies exactly what will be exported to the "outside worid", and lists any 
other modules on which the module being declared is itself dependent. 

The export declaration defines constants and types, declares variables, and gives the headings of 
procedures and functions whose complete specifications appear in the implement part of the 
module. It is exactly the items in the export declaration which become accessible to any other code 
which subsequently imports the module. 

There need not be any procedures or functions in a module if its purpose is solely to declare types 
and variables for other modules. 

Any constants, types and variables declared in the implement part will not be made known to 
importers of the module; they are only useful inside the module, and outside it they are hidden. 
Variables of the implement part of a module have the same lifetime as global program variables, 
even though they are hidden. 
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Any procedures or functions whose headings are exported by the module must subsequently be 
completely specified in its implement part. In this respect the headings in the export declaration are 
like FORWARD directives, and in fact the parameter list of such procedures need not be (but may 
be) repeated in the implement part. Procedures and functions which are not exported may be 
declared in the implement part; they are known and useful only within the module. 

Separately compiled modules are called "library modules". To use library modules, a program 
imports them just as if they had appeared in the program block. 

When an import declaration is seen, a module must be found matching each name in the import 
declaration. If a module of the required name appears in the compilation unit before the import 
declaration, the reference is to that module. Otherwise, external libraries must be searched. 

The compiler option *SEARCH 'stnnr'i names the order in which external libraries are searched, 
The parameter is a literal string describing the external libraries in an implementation-dependent 
fashion. Multiple files are specified by multiple strings. For instance, 
$SEARCH ' f i 1 e 1 ' t ' f i 1 e2 ' » ' f i 1 e3 ' *. This option may appear anywhere in a compilation unit, and 
overrides any previous SEARCH option. 
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new 



This procedure allocates storage for a dynamic variable. 



tO- 



r:?. 



\jy " valu 



Item 



pointer identifier 
tag 



Description/Default 



a pointer type variable 
case constant 



Range Restrictions 



Examples 

n e w ( p t r ) 

newC pt r (tasl ) . , , .tasn ) 

Semantics 

The procedure riew(p) allocates storage for a dynamic variable on the heap and assigns its address 
to the pointer variable p. If insufficient heap space is available for the allocation, a run-time error 
occurs. 

If the dynamic variable is a record with variants, then t may be used to specify a case constant. This 
constant only determines the amount of storage allocated. The procedure call does not actually 
assign it to the dynamic variable. For nested variants, you must list the values contiguously and in 
the order of their declaration. 

If you call new for a record with variants and do not specify any case constants, the compiler 
determines storage by the size of the fixed part plus the size of the largest variant. 

You should be careful when using an entire dynamic record variable allocated with one or more 
case constants as an operand in an expression, an actual parameter, or on the left side of an 
assignment statement. The variant may be smaller than the actual size at run time. 

The pointer variable may be a component of a packed structure. 

Pointer dereferencing accesses the actual values stored in a dynamic variable on the heap. 



new 
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Example Code 



PROGRAM show-new (output) i 
TYPE 

m a r i t a 1 _ s t a t u s = ( s i n 3 1 e i e n S a 3 e d t m a r r i e d t w i d o w e d » d i u o r c e d ) i 
year == 1900. .ZlOOi 
p t r == ■'■ p e r s n _ i n f ! 
persori.info = RECORD 

naiiie: st ririS[25] i 
b i r d a t e : year! 
n e X t _ p e r 5 n : p t r i 
CASE status: mari tal_status OF 
111 a r r i e d . . d i y r c e d : (when: year! 

CASE has_kids: boolean OF 
true: (how_(iiany: 1..50) 
)) ; 
e n 3 a S e d : (date: year) 
single : 1 i 

end; 



OAR 

p : p t r ; 
BEGIN 



{ U a r i u s 1 e 3 a 1 calls of new.} 



e w ( p ) ; 



e w ( p ) e n 3 a 3 e d ) i 



e w ( p ( ffl a r r i e d ) i 



e w ( p t w i d w e d f f a 1 5 e ) 



END. 
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NIL 



This predefined constant is used when a pointer does not contain an address. 



— «^NIL^-*» 



Semantics 

NIL is compatible with any pointer type. A NIL pointer (a pointer that has been assigned to NIL) 
does not point to any variable at all. 

NIL pointers are useful in linked list applications where the "link" pointer points to the next element 
of the list. The last element's pointer can be assigned to NIL to indicate that there are no further 
elements in the list. 

An error occurs when a NIL valued pointer is dereferenced. 
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NOT 



This boolean operator complements a boolean factor. 



Example 

NOT done 

Semantics 

The NOT operator complements the value of the boolean factor following the NOT operator. The 
result is of type boolean. 

Example Code 

PROGRAM show-not ( input >outpijt ) i 



i.'AR 

timet m n e y 

line 

test-file 



boolean! 

St rins[255] t 

file! 



BEGIN 



IF NOT (time AND money) THEN wait! 



WHILE NOT eof (test-file) DO 
BEGIN 

readln( test-file tline) ! 

w r i t e 1 n ( 1 i n e ) i 
END! 



END. 
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Numbers 

HP Pascal recognizes three sorts of numeric literals: integer, real, and longreal. 

Integer Literals 

An integer literal consists of an sequence of digits from the subrange 0..9. No spaces may separate 
the digits for a single literal and leading zeroes are not significant. The compiler interprets unsigned 
integer literals as positive values. 

The maximum unsigned integer literal is equal in value to the standard constant max int. The 
minimum signed integer literal is equal in value to the standard constant iti i n int. The actual value is 
implementation dependent. 



Unisigned Integer: 



Signed Integer 



1— ^ digit — ^ 



uns i gned 
integer 



U0-J 



Real and Longreal Literals 

A real or longreal literal consists of a coefficient and a scale factor. An "E" preceding the scale factor 
is read as "times ten to the power of" and specifies a real literal. An "L" preceding the scale factor 
also means "times ten to the power of", but specifies a longreal literal. 

Lowercase "e" and "1" are legal. At least one digit must precede and follow a decimal point. A 
number containing a decimal point and no scale factor is considered a real literal. 



Unsigned Real: 



unsigned /* ^ f ^ 
integer 1 ^\/J ^ 



Signed Real 



digit 



-0 




unsigned 
integer 






unsigned 

real 



W3h^ 



L0J 



uns igned 

integer 



unsigned 
real 



Examples 



Numbers 101 



100 {InteSer. > 

0,1 {Real with no scale factor. } 

5E-3 {Real with no decimal point.} 

3.iai592B535B979L0 {LonSreal. > 

B7.35e+8 {Real. > 
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octal 



This function converts a string or PAC, whose literal value is an octal number, to an integer. 



Item 



octal string 



Description/Default 



string expression or PAC variable 



Range Restrictions 



implementation 
dependent 



Examples 

Input 

octal ( 5t rnj ) 
octal ( '77' ) 
-octaK '77') 



Result 

S3 

-G3 



If your particular implementation used 32-bit 2's complement notation, the following example 
would also work. 



octal ( '37777777701 ') 



-B3 



Semantics 

The function octal(s) converts s to an integer. S is interpreted as an octal value. 

The three numeric conversion functions are binary, hex, and octal. All three accept arguments 
which are string or PAC variables, or string literals. The compiler ignores leading and trailing blanks 
in the argument. All other characters must be legal digits in the indicated base. 

Since b i n a r y , hex. and octal return an integer value, all bits must be specified if a negative result is 
desired. Alternatively, you may negate the positive representation. 
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odd 



This function returns true if the integer expression is odd, and false otherwise. 



—«> ( ODD ) ->{?)-»' 



integer 
express ion 



Examples 

Input 



d d ( i n t _ u a r ) 
d d ( r d ( c a 1 r ) ) 
odd (2 + a) 
odd(-327B7) 
odd (327GB) 
d d ( ) 



Result 



false 
true 
false 
false 
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OF 



See ARRAY, CASE, FILE, and String Constructor. 



open 



This procedure opens a file in the read-write state and places the current position at the beginning 
of the file. 
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■*\£/ ^ identifier ~1 

L ^(^^ [physical fil 
\,^_^ n specifier 



tO- 



L - / ^ ^ ~ I option 
'\'y ^ strlnc 



Item 


Description/Default 




Range Restrictions 


file identifier 


name of a logical file 




file cannot be of type text 


physical file specifier 


name to be associated with f; must be 
expression or PAC variable 


a string 


- 


options string 


a string expression or PAC variable 




implementation 
dependent 



Examples 



p e ri ( f i 1 e _ u a r ) 

open (file- uartPhy_file_5Pec) 

operi(file_vartPhy_file_5Peo)OPt_str) 

OPen(filuar t'TESTFILE') 



Semantics 

The procedure operi(f) opens f in the read-write state and places the current position at the 
beginning of the file. The function e o f returns false, unless the file is empty. The buffer variable f"^ 
is undefined. 



After a call to open, f is said to be a direct access file. You may read or write data using the 
procedures read, write, readdi r, or writedi r. The procedure seef; and the functions lastpos and 
iiiaxpos are also legal. EQf(f) becomes true when the current position is greater than the highest- 
indexed component ever written to f 

Direct access files have a maximum number of components. The function fnaxpos returns this 
number. On implementations that allow direct access files to be extended, m a x p o s returns the value 
of max in t (the maximum possible number of components). 

The lastpos function returns the index of the highest-written component of a direct access file. 

You cannot open a textfile for direct access since its format is incompatible with direct access 
operations. 
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open 



When a file is specified, the system will close any physical file previously associated with f. 

When f does not appear as a program parameter and s is not specified, the system maintains any 
previous association of a physical file with f. If there is no such association, it opens a temporary 
nameless file. This file cannot be saved. It becomes inaccessible after the process terminates or the 
physical-to-logical file association changes. 

Illustration 

Suppose examp_file is a file of i in e se r with three components. To perform both input and output, 
we call open; 

open(examp_file); 



current position 

i 





16 




10 




25 



state: read-write 
examp_file'^: undefined 
eof(examp^file): false 
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Operators 



An operator performs an action on one or more operands and produces a value. 

An operand denotes an object which an operator acts on to produce a value. An operand may be a 
literal, a declared constant, a variable, a set constructor, a function call, a dereferenced pointer, or 
the value of another expression. 

Operators are classified as arithmetic, boolean, set, relational, and concatenation operators. A 
particular symbol may occur in more than one class of operators. For example, the symbol " + " is 
an arithmetic, set and concatenation operator representing numeric addition, set union, and string 
concatenation, respectively. 

Precedence ranking determines the order in which the compiler evaluates a sequence of operators 
(see Operator Precedence). 

The value resulting from the action of an operator may in turn serve as an operand for another 
operator. 

Arithmetic Operators 

Arithmetic operators perform integer and real arithmetic. They include +,-,*, /, DIV, and MOD. 

Most arithmetic operators permit real, longreal, integer, or integer subrange operands. DIV and 
MOD, however, only accept integer operands. 
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In general, the type of its operands determines the result type of an arithmetic operator. In certain 
cases, the compiler implicitly converts an operand to another type (see below). 



Operator 


Result 


(unary) 


The value of a single operand which may be any numeric type. 


(unary) 


The negated value of a single operand which may be any 
numeric type. 


+ 
(addition) 


The sum of two operands which may be any but not necessari- 
ly the same numeric type. 


(subtraction) 


The difference of two operands which may be any but not 
necessarily the same numeric type. 


# 
(multiplication) 


The product of two operands which may be any but not neces- 
sarily the same numeric type. 


/ 
(division) 


The quotient of two operands which may be any but not neces- 
sarily the same numeric type. If both operands are type integer 
or integer subrange, the result is, nevertheless, real. 


DIV 

(division with 

truncation) 


The truncated quotient of two operands which both must be 
type integer or integer subrange. The sign of the result is posi- 
tive if the signs of the operands are the same, negative other- 
wise. The result is zero if the first operand is zero. 


MOD 

(modulus) 


The remainder when the right operand divides the left oper- 
and. Both operands must be integers or integer subrange, but 
an error occurs if the right operand is negative or zero. The 
result is always positive, regardless of the sign of the left oper- 
and, which must be parenthesized if it is a negative literal (see 
example). The result is zero if the left operand is zero. Formally, 
MOD is defined as 




iMODj = i - ((iDlVj) *-]) 




where i > and j > 0. Or 




iMODj = i - ((iDlVj) *■]) + ■] 




where i < and j > 0. 



Implicit Conversion 

The operators +, -, *, and / permit operands with different numeric types. For example, it is 
possible to add an integer and a real number. The compiler converts the integer to a real number 
and the result of the addition is real. 
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This implicit conversion of operands relies on a ranking of numeric types: 



Rank 



Type 



iiighest 
lowest 


longreal 

real 

integer 

integer subrange 



If two operands associated with an operator are not the same rank, the compiler converts the 
operand of the lower rank to an operand of the higher rank prior to the operation. The result will 
have the t\/pe of the higher rank operand. In sum: 



One operand type 


Other operand type 


Result type 


integer-subrange 


integer-subrange 


integer 


integer-subrange 


integer 


integer 


integer 


real 


real 


integer 


longreal 


longreal 


real 


longreal 


longreal 



Real division (/) is an exception. If both operands are integers or integer subranges, the compiler 
changes both to real numbers prior to the division and the result is real. 

It is not legal to perform real or longreal arithmetic in a constant definition. 



Examples 



Expression 



-( + 10) 


-10 


5 + 2 


7 


5 - 2.0 


3.0 


5*2 


10 


5.0/2.0 


2.5 


5/2 


2.5 


5.0L0/2 


2.5L{ 


5D1V2 


+ 2 


5DlV(-2) 


-2 


-5D1V2 


-2 


-5DlV(-2) 


+ 2 


5 MOD 2 


+ 1 


5 MOD (-2) 


error 


(-5) MOD 2 


+ 1 



Result 



{Unary — . 

{Addition with integer operands. 

{Subtraction with implicit conversion. 

{Multiplication with integer operands. 

{Division with real operands. 

{Division with integer operands, real 

{result. 

{Division with implicit conversion. 

{Division with truncation. 



{Modulus. 

{Right operand must be positive. 

{Result is positive regardless of 

{sign of left operand, which is 

{parenthesized since MOD has higher 

{precedence than — . 

{See Operator Precedence 
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Boolean Operators 

The boolean operators perform logical functions on boolean type operands and produce boolean 
results. The boolean operators are NOT, AND, and OR. 

When both operands are boolean, = denotes equivalence, < = implication, and <> exclusive or. 



Operator 




Result 




NOT 
(logical negation) 


The logical negation of a single boolean operand accord- 
ing to the following table: 




a 


NOT a 






true 
false 


false 
true 


AND 
(logical and) 


The evaluation of two boolean operands produces a boo- 
lean result according to the following table: 




a 


b 


aANDb 




true 
true 
false 
false 


true 
false 
true 
false 


true 
false 
false 
false 


OR 

(inclusive or) 


The evaluation of two boolean operands produces a boo- 
lean result according to the following table: 




a 


b 


aORb 




true 
true 
false 
false 


true 
false 
true 
false 


true 
true 
true 
false 



The compiler can be directed to perform partial evaluation of boolean operators used in statements. 
For instance: 

IF n 3ht_ti(iie AND risht_place THEN ... 

By specifying the $PARTIAL_EVAL ON$ compiler directive, if ' 'right_time' ' is f a 1 s e , the remaining 
operators will not be evaluated since execution of the statement depends on the logical AND of 
both operators. (Both operators would have to be true for the logical AND of the operators to be 

true.) 



Similarly, the logical OR of two operators would be true even if only one of the operators was true. 

With careful planning of "most likely" values for boolean operators, partial evaluation can reduce 
execution time of a program. 
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Example Code 

IF NOT possible THEN forSet.iti 

WHILE time AND mone;-' DO your_thiriS; 

REPEAT... UNTIL tired OR bo red! 

IF has_rope = true DO sKipi 

IF pain <= heartache THEN try_iti 

FUNCTION NAND (At B : BOOLEAN) : BOOLEAN! 
NAND := NDT(A AND B)i {NOT AND) 

FUNCTION XOR (At B : BOOLEAN) : BOOLEAN; 

XOR := NOT (A AND B) AND (A OR B)! {EXCLUSIVE OR} 

FUNCTION XOR (At B : BOOLEAN) : BOOLEAN? 
XOR := A <> B; 

Concatenation Operators 

The concatenation operator + concatenates two operands. The operands may be string variables, 
string literals, function results of type st rin s, or some combination of these types. 

If one of the operands is type strlns, the result of the concatenation is also type string. If both 
operands are string literals, the result is a string. 

It is not legal to use the concatenation operator in a constant definition. 

Example Code 

UAR 

si tsZ: strin^ESO] i 
BEGIN 



si 

s2 
si 



= ' a b c ' i 
= 'def i 
= si + s 2 j {SI is now ' a b c d e f ' } 



52:= 'The first six letters are ' + sli 
END. 

Relational Operators 

Relational operators compare two operands and return a boolean result. The relational operators 
are <, < = , =, <>, > = , >, and IN. The < operator means "less than"; <= "less than or 
equal"; == "equal"; <> "not equal"; >= "greater than or equal"; > "greater than"; and IN 
indicates set membership. 

Depending on the type of their operands, relational operators are classified as simple, set, pointer, 
or string relational operators. 
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Simple Relational Operators 

A simple relational operator has operands of any simple type, i.e. inteser, boolean, char, real. 
Ions real, enumerated, or subrange. All the operators listed above except IN may be simple 
relational operators. The operands must be type compatible, but the compiler may implicitly 
convert numeric types before evaluation (see Arithmetic Operators). 

For numeric operands, simple relational operators impose the ordinary definition of ordering. For 
char operands, the ASCII collating sequence defines the ordering. For enumerated operands, the 
sequence in which the constant identifiers appear in the type definition defines the ordering. Thus 
the predefinition of b o o 1 e an as 

TYPE boolean = (false t true); 

means that f a 1 s e < true. 

If both operands are boolean, the operator = denotes equivalence, <= implication, and <> 
exclusive or. 

Set Relational Operators 

A set relational operator has set operands. The set relational operators are = , <>, > = , < = and 
IN. 

The operators = and <> compare two sets for equality or inequality, respectively. The < = 
operator denotes the subset operation, while > = indicates the superset operation. Set A is a subset 
of Set B if every element of A is also a member of B. When this is true. B is said to be the superset of 
A. 

The IN operator determines if the left operand is a member of the set specified by the right operand. 
When the right operand has the type SET OF T, the left operand must be type compatible with T. 
To test the negative of the IN operator, use the following form: 

NOT (element IN set) 

Pointer Relational Operators 

You can use the operators = and <> to compare two pointer variables for equality or inequality, 
respectively. Two pointer variables are equal only if they point to exactly the same object on the 
heap. You may compare two pointers of the same type or the constant NIL to a pointer of any type. 

String Relational Operators 

You may use the string relational operators =, <>, <, < = , >, or>= to compare operands of 
type s t r I n 3, PAC, char, or string literals. 

The system performs the comparison character by character using the order defined by the ASCII 
collating sequence. 

If one operand is a string variable, the other operand may be a string variable or string literal. If the 
operands are not the same length and the two are equal up to the length of the shorter, the shorter 
operand is less. For example, if the current value of SI is "abc" and the current value of S2 is "ab", 
then SI > S2 is t rue. It is not possible to compare a string variable with a PAC or char variable. 
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If one operand is a PAC variable, the other may be a PAC (of any length) or a string literal no longer 
than the first operand. If shorter, the string literal is blank filled prior to comparison. It is not possible 
to compare a PAC with a string or char variable. 

If one operand is a char variable, the other may be a char variable or a single-character string literal. 
It is not possible to compare a char variable with a string or PAC variable. 

If one operand is a string literal, the other may be a string variable, a PAC, a string literal, or a char 
variable provided that the string literal is only of length 1. 

The following table summarizes these rules. The standard function st rMax(s) returns the maximum 
length of the string variable s. The standard function strlen(s) returns the current length of the 
string expression s. 

A string constant is considered a string literal when it appears on either side of a relational operator. 



String, PAC, Char, String Literal Comparison 



A/<reIop>/B 


string 


PAC 


char 


string literal 




Length of 






Length of 




comparison 


Not 


Not 


companson 


string 


based on 

smaller 

strlen 


allowed 


allowed 


based on 

smaller 

strlen 










Only if 






The shorter 




A length > = 




Not 


of the two 


Not 


strlen(B) 


PAC 


allowed 


is padded 
with blanks 


allowed 


B is blank 
filled if 
necessary 




Not 


Not 




Only if 


char 


allowed 


allowed 


Yes 


strlen(B) = 1 




Length of 


The shorter 


Only if 


Yes 




comparison 


of the two 


strien(A) 




string 


based on 


is padded 


= 1 




literal 


smaller 
strlen 


with blanks 




A or B is 
blank filled 
if necessary 
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Example Code 



PROGRAM shoui.relational ; 
TYPE 

color = ( r e d t y e 1 1 o w t blue); 
1,'AR 

a <ti (C : boolean i 

p t <=i : ■■■ b 1 e a n i 

5 ft: SET OF color! 

col : color! 

s t 3 : 5 t r i n S [ 1 ] i 
BEGIN 



{Types of relational operators: } 

5 > 2 ! { 5 i III p 1 e t } 

:= 5 < 25.0L+1 i {simple, } 

a AND (b OR (NOT o AND (b <= a)))! {implication,} 

[F (p = q) AND (p <> NIL) THEN p-:= a = b; {pointer, > 

■■ 5 <> t ! 

■■ s < = t i 

■ col IN [yellow, blue]! 
s t 3 : = 'alpha'? 

c:=st3>'beta'i {strins, } 

END. 



{set, > 
{set, subset,} 
{ s e t , I N , } 



SET Operators 

The set operators perform set operations on two set operands. The result is a third set. The set 
operators are + , - , and *. 



Operator 



union 



(difference) 



(intersection) 



Result 



A set whose members are all the elements present in 
the left set operand and those in the right, including 
members present in both sets. 

A set whose members are the elements which are 
members of the left set but are not members of the 
right set. 

A set whose members are only those elements present 
in both of the set operands. 



Operands used with set operators may be variables, constant identifiers, or set constructors. The 
base types of the set operands must be type compatible with each other. 
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Example Code 



PROGRAM show.setopsi 
UAR 

a» bt C! SET OF 1. ,10i 

X : 1 . , 1 i 
BEGIN 



a:= [1 . 3. 53! 

b : = C 2 t 4 ] ; 

: = [ 1 . . 1 ] i 

x:= a; 

a:= a + b {Union i a i s now [ 1 » 2 t 3 t 4 t 5] . } 

b:= c - a {Difference! b is now [Bt 7t 8t 3 > 10].} 

c : = a * b { I n t e r 5 e c t i n i c i s n w C ] . > 

c:= I'Zt 5] + [x] {Set constructor operands! c is now } 

END. {[2 ( 5t 91. > 



Operator Precedence 

The precedence ranking of a HP Pascal operator determines the order of its evaluation in an 
unparenthesized sequence of operators. The four levels of ranking are: 



Precedence 



highest 



lowest 



Operators 



NOT 

». /, DIV, MOD, AND 

+ , -,0R 

<, < = , <>. =, > = , > 



The compiler evaluates higher precedence operators first. For example, since * ranks above + , it 
evaluates these expressions identically: 

(x + '/ * z) and (x + (v # z) ) 

When a secquence of operators has equal precedence, the order of evaluation is implementation 
dependent. 

If an operator is commutative (e.g. *), the compiler may choose to evaluate the operands in any 
order. 

Within a parenthesized expression, of course, the compiler evaluates the operators and operands 
without regard for any operators outside the parentheses. 
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Summary 



The following table lists each HP Pascal operator together with its actions, permissible operands, 
and type of results. In the table, the term "real" indicates both real and ions real types. 



HP Pascal Operators 



Operator 


Actions 


Type of Operands 


Type of Results 


+ 


addition 
set union 
concatenation 


real, integer 
any set type T 
string, string lit. 


real, integer 

T 

string 


— 


subtraction 
set difference 


real, integer 
any set type T 


real, integer 
T 


* 


multiplication 
set intersection 


real, integer 
any set type T 


real, integer 
T 


1 


division 


real, integer 


real 


DIV 


division with truncation 


integer 


integer 


MOD 


modulus 


integer 


integer 


AND 


logical 'and' 


boolean 


boolean 


OR 


logical 'or' 


boolean 


boolean 


NOT 


logical negation 


boolean 


boolean 


< 


less than 


any simple type 
string or PAC 


boolean 
boolean 


> 


greater than 


any simple type 
string or PAC 


boolean 
boolean 


< = 


less than or 
equal, 
set subset 


any simple type 
string or PAC 
any set 


boolean 
boolean 
boolean 


> = 


greater than or 

equal, 

set superset 


any simple type 
string or PAC 
any set 


boolean 
boolean 
boolean 


= 


equal to 


any simple type 
string or PAC 
any set type 
pointer 


boolean 
boolean 
boolean 
boolean 


<> 


not equal to 


any simple type 
string or PAC 
any set type 
pointer 


boolean 
boolean 
boolean 
boolean 


IN 


set membership 


left operand: any 
ordinal type T 

right operand: set 
ofT 


boolean 
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OR 



This boolean operator returns the logical OR of its two factors. 



Example 



ok OR quit 






Semantics 






The truth table 


is: 




A 


B 


AdrB 


false 


false 


false 


false 


t rue 


true 


true 


false 


true 


true 


t rue 


true 



Example Code 

PROGRAM show_o r( input toutput ) i 



MAR 
oh 

t i fit e 
e n e r S > 



cha r i 
boolean i 
boolean ! 



BEGIN 



F time OR energy then doiti 



F (ch 



OR (ch = •',■') THEN ch := 'Y' i 



END. 
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ord 



This standard function returns an integer designating the position of the argument in an ordered set. 



* \ ORD ^ )— *\(^)— *■ expression 



Examples 

Input 

ord(ord_exp) 
r d ( ' a ' ) 
r d ( ' A ' ) 
ord(-l ) 
r d ( y e 1 1 w ) 
r d { red) 



Result 

97 
B5 
-I 



{TYPE CO lo r= ( red (blue <yel low ) } 



Semantics 

The function o rd(x) returns the integer representing the ordinal associated with the value of x. If x is 
an integer, x itself is returned. If x is type char, the result is an integer value between and 255 
determined by the ASCII order sequence. If x is any other ordinal type (i.e., a predefined or 
user-defined enumerated type), then the result is the ordinal number determined by mapping the 
values of the type onto consecutive non-negative integers starting at zero. For example, since the 
standard type b o o l e an is predefined as: 

TYPE booleari = (false (true) 

the call ord(f alse) returns 0, and the call ord (true) returns 1. 

For any character ch, the following is true: 

chr(ord(ch)) = ch 
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Ordinal Types 



Ordinal types are types that can be uniquely mapped into the set of natural numbers. 



Ordinal Type: 



ordinal type 
ident if ier 



enumePcited 
type 



subrange 
type 



— > ^ INTEGER 3 — » 
»^ BOOLEAN ^— »• 



CHAH 



Ordinal types include enumerated types, subrange types, integers, booleans, and characters (char 
type). 

Ordinal types are declared by enumerating all of the possible values that their variables and 
functions can possess. Predefined ordinal types include integers, boolean values, and characters. 

Permissible Operators 

Any of the relational operators may be used with ordinal types. The IN (membership test) operator 
may also be used with ordinal types. 

For relational tests, the two factors must be of the same type. When membership tests are per- 
formed, the left-operand type must be a single ordinal value while the right-operand is of a SET 
type. 

Permissible Functions 

The following functions may be used with all ordinal types. 

s u c c This function returns the next value in the list of possible values the variable may possess. 
The 5 u c c of the last value is undefined. 

pred This function returns the previous value in the list of possible values. The pred of the first 
value is undefined. 

rd This function returns the ordinal number of the given value. 
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OTHERWISE 

In HP Pascal, a CASE statement may include an OTHERWISE part. 
See CASE. 
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output 



The standard textfiles input and output often appear as program parameters. When they do, there 
are several important consequences: 

1. You may not declare input and output in the source code. 

2. The system automatically resets i n p u t and rewrites o u t p u t . 

3. The system automatically associates input and output with the implementation dependent 
physical files. 

4. If certain file operations omit the logical file name parameter, input or output is the default 
file. For example, the call read(x), where x is some variable, reads a value from input into x. 
Or consider: 

PROGRAM sample (output) 5 
BEGIN 

yritelni'I like Pascal!')! 
END. 

The program displays the string literal on the terminal screen. Output must appear as a program 
parameter; input need not appear, however, since the program doesn't use it. 
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overprint 



This procedure writes a special character to a textfile which suppresses the generation of a line-feed 
after the item is printed. 



—*Q OVERPRINT y- 



^O- 



L_J text file I ^/'~\ J 

^ n identifier | \ J 



L 



wr ite 

parameter 



hkXhJ 



Write Parameter 



enumerated 
expression 



STRING or PAC 
express ion 



boolean 
factor 



integer 
expression 



real 
express ion 



I i I —j 

v. fii fc minimum J 

^ " field width 



L fc^T N - I minimum 
^^^ n field width 



L ^/T ^ ^1 fraction | 



Item 


Description/Default 


Range Restrictions 


textfile identifier 


variable of type text 
default = outpi.it 




file must be opened 


write parameter 


see drawing 




- 


minimum field width 


integer expression 




greater than 


fraction length 


integer expression 




greater than 



Examples 



M e r p r i n t ( f i 1 e - u a r ) 

M e r p r i n t ( f i 1 e _ u a r » e X p ) 

M e r p r i n t ( f i 1 B _ u a r » e X p 1 t . . . t e x pn ) 

M e r p r i nt ( e X p ) 

u e r p r i n t ( e X p 1 • I , , t e X p n ) 

u e r p r i n t 
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Semantics 

The procedure ome rpririt(f) writes a special line marker on the textfile f and advances the current 
position. When f is printed, this special marker causes a carriage return but suppresses the line feed. 
This means the printer will print the line after the special marker over the line preceding it. 

After the execution of o i.i e r p r i n t (f), the buffer variable f '" is undefined and e o 1 n (f ) is false. 

The expression parameter behaves exactly like the equivalent parameter for the procedure write. 
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pack 



This standard procedure transfers data from unpacked arrays to packed arrays. 



fc^ranii'^ « /'^T ^ - I non-packed arrayl . /^ . I starting 
' \^'*^'^y *\^y n identifier | ^■^J^^ H position 



packed array 
ident i f ier 



h-Q- 



Item 


Description/Default 


Range Restrictions 


non -packed array 
identifier 

starting position 
packed array identifier 


variable of type array 

expression whicii is type compatible with the in- 
dex of the non-packed array 

variable of type PACKED array 


see semantics 
see semantics 



Example 

pack (array tstart_pos tpacKed-arrav) 

Semantics 

Assuming a: ARRAY C m. .n] OF t and h: packed ARRAY [ u . . u ] OF t; the procedure pacK(a,i,z) 
assigns components of the unpacked array a, starting at component i, to each component of the 
packed array z. The unpacked array must be as long as or longer than the packed array, i.e. n - m 
> = V - u. The value of i must be greater than or equal to m, the lower bound of a. Since all the 
components of z are assigned a value, the normalized value of i must be less than or or equal to the 
difference between the lengths of a and z plus 1, i.e. i-m-l-1 <= (n-m) - (v-u) + 1. 
Otherwise, an error occurs when pack attempts to access a non-existent component of a (see 
example below). 

The component types of arrays a and z must be type identical. The index types of a and z, however, 
may be incompatible. 

The call pack(a,i,z) is equivalent to: 

BEGIN 
h : = i ; 

FOR J:= u TO m DO 
BEGIN 
z [ J ] : = a [ k ] ; 
IF J <> u THEN k:= 5ijcc(k) ! 

end; 
end; 



where k and j are variables that are type compatible with the index type of a and the index type of z, 
respectively. 
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Example Code 



PROGRAM show-PacK { input toutput ) i 
TYPE 

clothes = (hatt SloMet shirtt tiei socK)! 
iJAR 

dis : ARRAY CI. .10] OF clothes! 

box : PACKED ARRAY El.. 51 of clothes! 

i ri d e X : i n t e 3 e r ! 



BEGIN 



i n d e :k : = 1 ! 

pacK(disiindextbox)! {After pacK executes) box contains } 

. {thefirstScoiiiPonentsofdis. } 

i n d e x : = 8 i 

pack ( dis (index >box ) i -CAn error results when pack attempts } 
. {to access non-existent 11th component} 

. {of dis. } 

END, 
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PACKED 

This reserved word indicates that the compiler should optimize data storage. 

PACKED may appear with an ARRAY. RECORD, SET, or FILE, 

By declaring a PACKED item, the amount of memory needed to store an item is generally reduced. 

Whether data storage is optimized depends on the implementation. 
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page 



This procedure writes a special character to a textfile which causes the printer to skip to the top of 
form when the file is printed. 



^ n identifier | ^^.^y 



Item 



textfile identifier 



Description/Default 



variable of type text; 
default = output 



Range Restrictions 



file must be open 



Examples 



pase(text_file) 
paSe 



Semantics 

The procedure pase(f) writes a special character to the textfile f which causes the printer to skip to 
the top of form when f is printed. The current position in f advances and the buffer variable f is 
undefined. 



If f is omitted, the system uses the standard file output. 
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Parameters 



A procedure or function is declared, the heading may optionally include a list of parameters. This 
list is called the formal parameter list. 

A procedure statement or function call in the body of a block provides the matching actual 
parameters which correspond by their order in the list. The list of actual parameters must be 
assignment compatible with their corresponding formal parameters. 

The four sorts of formal parameters are value, variable, function, and procedure parameters. Value 
parameters are identifiers followed by a colon (:) and a type identifier. Variable parameters are 
identical with value parameters except they are preceded by the reserved word VAR. Function or 
procedure parameters are function or procedure headings. 



Fornal Parameter Lisl 



— »-(^VAR^ — ^ 



heading 



■o 



<D- 



iden t i f i er 



/TV_J type 

Vl-/ n identifie 



Heading: 



> ( PROCEDURE y * \ ,'--n\V- 



jre 

ier 



^\J^ n parameter list | ^^Jy 



^ ~ parameter list | ^^J^ 



You may repeat and intermix the four types of formal parameters. Several identifiers may appear 
separated by commas. These identifiers will then represent formal variable or value parameters of 
the same type. 

A formal value parameter functions as a local variable during execution of the procedure or 
function. It receives its initial value from the matching actual parameter. Execution of the procedure 
or function doesn't affect the actual parameter, which, therefore, may be an expression. 

A formal variable parameter represents the actual parameter during execution of the procedure. 
Any changes in the value of the formal variable parameter will alter the value of the actual 
parameter, which, therefore, must be a variable. A s t r i n s type formal variable parameter need not 
specify a maximum length, it will assume the type of the actual parameter. 
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A formal procedure or function parameter is a synonym for the actual procedure or function 
parameter. The parameter lists, if any, of the actual and formal procedure or function parameters 
must be congruent. 

Example Code 

PROGRAM show-f oriiipariiii 
VAR 
test: boolean) 

FUNCTION cheKl ix> v, z: real): boolean; 
BEGIN 

{Perform some type of ualiditv checK on xt yi z } 
{and return appropriate ualue. } 

ENDi 

FUNCTION oheK2 (k. vt z: real): boolean! 
BEGIN 

{Perform an alternate ualidit'/ check on x» vi z } 
{and return appropriate yalue. > 

end; 

PROCEDURE read-data (FUNCTION check (at b( o: real): boolean); 
UAR p t q t r: real i 
BEGIN 

{read and ualidate data} 

r e a d 1 n ( p t <=i t r ) ; 

IF check (p t n t r) THEN . . . 
ENDi 

BEGIN {show-f rdiparm} 

IF test THEN read-data (chekl) 
ELSE read-data (chek2) ; 

END. 

PROGRAM 5how_uarpar(it( output ) ; 

UAR 

i » J : integer; 

PROCEDURE fiKC'AR i : integer; J : integer); 

BEGIN 

i := Ji {i is passed by reference* it will return equal to 42} 

J := o; {J is passed by value t this assignment will } 

{not change the Malue of J in the main proSram} 

end; 

BEGIN {show-i.iarparm} 

i : = ; 
j:=: 42; 

f i X ( i f J ) ; 

IF i = J THEN writeln( 'They both = 42')! 
END. 
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Pointers 



A pointer references a dynamically allocated variable on the heap. A pointer type consists of the 
caret (") and a type identifier. 

Pointer Type: 



pointer type 
ident i f ier 



k_fc/'^^\_J type" 
^\_/ \ identifi 



The type may be any type, including file types. The @ symbol may replace the caret. 

You need not have previously defined the type appearing after the caret. This is an exception to the 
general rule that Pascal identifiers are first defined and then used. However, you must define the 
identifier after the caret within the same declaration part, although not necessarily within the same 
TYPE section. 

A type identifier used in a pointer type declaration in an EXPORT section need not be defined until 
the IMPLEMENT section. 

The pointer value NIL belongs to every pointer type; it points to no variable on the heap. 

Permissible Operators 

assignment: : = 

equality: = , < > 

Standard Procedures 

pointer parameters: new. dispose* markt release 

Examples 

TYPE 

ptrl = 'recli 
Ptr2 = ■■■rec2i 
reel = RECORD 

fit f 2 ; i nt e 3 e r ! 

link: Ptr2i 

end; 

rec2 = RECORD 

f 1 ( f 2: real i 
link: Ptrl! 

end; 



Pointers 131 



Pointer dereferencing 

A pointer variable points to a dynamically-allocated variable on the heap. The current value of this 
variable may be accessed by dereferencing its pointer. 

Pointer dereferencing occurs when the caret symbol (") appears after a pointer designator in source 
code. 



__fcj point£~ |__»/'»V_fc. 
~ Identifier | ^^.^ 



The pointer designator may be the name of a pointer or selected component of a structured 
variable which is a pointer. The @ symbol may replace the caret. 

If the pointer is NIL or undefined, dereferencing causes an error. 

A dereferenced pointer can be an operand in an expression. 

Examples 

PROGRAM show_poiriterderef (output); 
TYPE 

p = "■ i lU e 3 e r i 
UAR 



a ,b 

p_array 
pt r 
BEGIN 



1 n t e 3 e r I 

ARRAY [1. .10] OF p! 

p I 



p_array[a] " : = a + b i 

wri teln (pt r" ♦ 2)! {Dereferenced pointer is operand. } 
END. 
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position 



This function returns the index of the current file component. 



- ^POSITIOn) ->(T H iden"!^ 



Item 


Description/Default 


Range Restrictions 


file identifier 


variable of type file 


must not be a textfile 



Example 



p s i t i n ( f i 1 e .. u a r ) 



Semantics 

The function po s 1 1 1 ori(f) returns the integer index of the current component of f, starting from 1. 
Input or output operations will reference this component, f must not be a textfile. If the buffer 
variable f^ is full, the result is the index of the component in the buffer. 
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pred 



This function returns the value whose ordinal number is one less than the ordinal number of the 
argument. 



-h^^eE)--<()-*C^S7H5)-^ 



Examples 



Input 

p r e d ( r d _ y a r ) 
pred(l) 
pred(-5) 
pred( 'B') 
p r e d ( t r u e ) 



Result 


-G 
'A' 

false 



Semantics 

The function pred(x) returns the value, if any, whose ordinal number is one less than the ordinal 
number of x. The type of the result is identical with the type of x. A run-time error occurs if p re d (x) 
does not exist. For example, suppose: 

TYPE day = (monday ttuesday twednesdav ) 

Then, 

p r e d ( t u e s d a y ) = m o n d a y 
but p r e d (lit ri d a y ) is undefined. 
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PROCEDURE 



A procedure is a block which is activated with a PROCEDURE statement. A procedure declaration 
consists of a procedure heading, a semi-colon (;), and a block or a directive followed by a semi- 
colon. 



-* { PROCEDURE y^ t^^^^^ri 



jre 
ier 



l_,y7V-J formal I ^/Ov J 

^ ~ parameter list | \/J 



■o 



^ 



FORWARD 



fT 



Formal Parameter List 



— »'(^VAR^ — ^ 



■o 



o 



ident i f ier 



»y'~V-«J type 

^^j^^' ~ identifie 



heading 



Heading; 



< 



PROCEDURE 



procedure 
ident i f ier 



L^y7V_J formal I ^/T\ ' 

^ ~ parameter list V/y 



WtI0n)-H jL^ntiM 



ion 
ier 



k<H 



f orma 1 
parameter 1 ist 



/OvJ [ type 
\\/ identifier 



Item 


Description/Default 


Range Restrictions 


procedure identifier 
formal parameter list 
heading 


name of a user-defined procedure 
see diagram 
see drawing 


any valid identifier 
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Semantics 

The procedure heading consists of the reserved word PROCEDURE, an identifier (the procedure 
name), and, optionally, a formal parameter list. 

A directive can replace the procedure block to inform the compiler of the location of the block. A 
procedure block consists of an optional declaration part and a compound statement. 

Procedure declarations must occur at the end of a declaration part after label, constant, type, and 
variable declarations and after the module declarations in the outer block. You can intermix 
procedure and function declarations. 
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Procedures 



A procedure statement transfers program control to the block of a declared or standard procedure. 
After the procedure has executed, control is returned to the statement following the procedure call. 
A procedure statement consists of a procedure identifier and, if required, a list of actual parameters 
in parentheses. 



Procedure Statement: 



procedure 
ident i f aer 



KiP 



■O 



ident if ier 



expression r- 

procedune J 



-Qr^ 



The procedure identifier must be the name of a standard procedure or a procedure declared in a 
previous procedure declaration. 

The declaration may be an actual declaration (i.e. heading plus body), a forward declaration, or it 
may be the declaration of a procedure parameter. 

If a procedure declaration includes a formal parameter list, the procedure statement must supply 
the actual parameters. The actual parameters must match the formal parameters in number, type 
and order. There are four kinds of parameters: value, variable, procedure and function. 

Actual value parameters are expressions which must be assignment compatible with the formal 
value parameters. 

Actual variable parameters are variables which must be type identical with the formal variable 
parameters. Components of a packed structure cannot appear as actual variable parameters. 

Actual procedure or function parameters are the names of procedures or functions declared in the 
program. Standard procedures or functions are not legal actual parameters. 

If a procedure or function passed as an actual parameter accesses any entity non-locally upon 
activation, then the entity accessed is one which was accessible to the procedure or function when it 
was passed as a parameter. For example, suppose Procedure A uses the non-local variable x. If A is 
then passed as an actual procedure parameter to Procedure B, it will still be able to use x, even if x 
is not otherwise accessible from B. 
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The formal parameters, if any, of an actual procedure or function parameter must be congruent 
with the formal parameters of the formal procedure or function parameter. Two formal parameter 
lists are congruent if they contain an equal number of parameters and the parameters in corres- 
ponding positions are equivalent. Two parameters are equivalent if any of the following conditions 
are true. 

1. They are both value parameters of the identical type. Assignment compatibility is not suffi- 
cient. 

2. They are both variable parameters of the identical type. 

3. They are both procedure parameters with congruent parameter lists. 

4. They are both function parameters with congruent parameter lists and identical result types. 

Example Code 

PROGRAM 5houi_P5tate (output); 

PROCEDURE wowi forward! {Forward declaration, } 

PROCEDURE bow; 
BEGIN 

w r i t e ( ' h w - ' ) i 

wow; { p r c e d u r e u 5 e d b e f r e } 

end; -C it is defined } 

PROCEDURE wowt {Forward procedure defined) 

BEGIN 

w r i t e ( ' w o w ' ) ; 

end; 

PROCEDURE actual-Proc {Actual procedure declaration.} 

( a 1 : integer; 
a2: real); 
BEGIN 

IF aZ < al THEN 

actual_proc (alt a2-al) {recursive call) 

end; 

PROCEDURE outer {Another actual declaration. } 

(a: inteSer; 
PROCEDURE proc_parm 
(pi! integer; p2 : real)); 

PROCEDURE inner; {nested procedure} 
BEGIN 

actual_proc (50 > 50,0) ; 

end; 

BEGIN {outer} {CallmS a } 

w r i t e 1 n ( ' H i ' ) ; { p r e d e f i n e d p r o c e d u r e t } 

inner; { i n n e r p r o c e d u r e , } 

proc_pariii (2* 4,0); {procedure parameter. } 

end; {outer} 

BEGIN {show_P5tate} 

outer (30t ac t ual_p roc ) ; {procedure parameters, } 
END, { show_Pstate} 
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PROGRAM 



An HP Pascal program consists of three major parts; the program heading, the program declara- 
tion, and the program block. 



( PROGRAM ) - ^~,p;,°,Ym 



Uq-U 



o 



tO^ 



file 

iden t i f ier 



<D-^ 



label I J 



declaration 



I 



c 
a 

■r^J 



constant 
declaration 



variable 
declarat ion 



type 
declarat ion 



import 
declaration 



module 
dec larat ion 



I 



procedure 

dec 1 ara t ion 



function 
declarat ion 



T 



o-^ 



Mi 



BEGIN ) ' * statement 



END 



X) 



See Programs. 



Programs 



An HP Pascal compiler will successfully compile source code which conforms to the syntax and 
semantics of an HP Pascal program. The form of an HP Pascal program consists of a program 
heading, a semicolon ( i), a program block, and a period. 
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program I ^fT\ ^ 
neading ~ "^^'y 



block 



The program heading consists of the reserved word PROGRAM, an identifier (the program name) 
and an optional parameter list. 



(^ program)-* 



program 
ident i f ier 



Ki> 



■G- 



file 
ident i f ier 




The identifiers in the parameter list are variables which must be declared in the outer block, except 
for the standard textfiles input and output. 

Input and output are standard file variables which the system associates by default with system 
dependent files and devices which it opens automatically at the beginning of program execution. In 
HP Pascal, input or output need only appear as program parameters if some file operation, e.g. 
read or y rite, refers to them explicitly or by default. 

Program parameters are often the names of file variables, but a logical file, i.e. a file declared in the 
program, need not necessarily appear as a program parameter. What must appear is system 
dependent. 

The program block consists of an optional declaration part and a required statement part. 



L ^ declaration ) 



part 



statement 
part 



The declaration part (see next page) consists of definitions of labels, constants and types, and 
declarations of variables, procedures, functions, and modules. The statement part is made up of a 
compound statement which may be empty or may contain several simple or structured statements 
(see Statements). The statement part is also termed the "body" or "executable portion" of the 
block. 
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Example Code 

PROGRAM (tiiriimumi 

BEGIN 

END. 



{The iiiinimum proJram the HP Pascal > 
■C c (II p i 1 e r will process s u c c e s s f u 11 y : } 
{no proSram parameters. } 



PROGRAM show_forml (output); {Uses the standard textfile output } 
BEGIN {and the standard procedure lAiriteln.} 

w r i t e 1 n ( ' G r e e t i n 3 5 ! ' ) 
END. 



PROGRAM show_fo rrnZ ( input .output ) ; 
UAR 

at b .total: inteJeri 

FUNCTION sum (itJ: integer): inteSeri {Function declaration } 
BEGIN 

sufii:= i + J 

end; 

BEGIN 

write ('Enter two inteSers: ')i 

prompt; 

r e a d 1 n ( a t b ) ; 

total : = sum ( a .b ) i 

w r i t e 1 n ('The total is: ' > total) 
END. 

Declaration Part 

The declaration part of an HP Pascal program block defines the labels, declared constants, data 
types, variables, procedures, functions, and modules which will be used in the executable state- 
ments in the body of the block. 

The reserved word LABEL precedes the declaration of labels; CONST or TYPE the definition of 
declared constants or types; VAR the declaration of variables; IMPORT a list of modules; MODULE 
the declaration of a module; PROCEDURE or FUNCTION the declaration of a procedure or a 
function. 



Type Declaration 




Constant Declaration 




:on5tant j- 

nstructor ^ 



■o 
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Variable Declaration 



—t^ VAR y^ 



~I-I — >■ identifie 



0-Hj3-*0 



Within a declaration part, label declarations must come first; procedure or function declarations last. 
You can intermix and repeat CONST and TYPE definition sections, VAR declaration sections (see 
example below) and MODULE declarations. 

ANSI Standard Pascal does not allow any of the reserved words, LABEL, CONST, TYPE, or VAR 
to be used more than once. 

You can redeclare or redefine a standard declared constant, type, variable, procedure or function in 
a declaration part. You will, of course, lose any previous definition associated with that item. 

Example Code 

PROGRAM 5how_declarepart ; 

LABEL 25! 

VAR 

birthday: i n t e S e r i 
TYPE 

friends = (Josi S i m o n t Leslie* J i 1 1 ) i 
CONST 

max n u m i n m i t e e = 3 i 
VAR 

1 n u i t e e ! f r i e ri d s i 
PROCEDURE hello! 

BEGIN 

w r i t e 1 n ( ' H i ' ) i 

END! -CEnd of declaration part.} 



BEGIN 



{ B e S i n n i n S of bo d y . 



} 



END. 
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prompt 



This procedure causes the system to write any buffers associated with a textfile to the output device. 



— »> ( PROMPT^ 



L*. text file ^/^ J 
^ n identifier | ^.Jy 



wr i te 
parameter 



p-K)>J 



Write Parameter 



enumerated 
express ion 



STRING or PAC 
express ion 



boolean 

factor 



integer 
expression 



real 
expression 



^ ^/^/\ ^ minimum J 

^ * J field width | 



\>_„/T^\__^J minimum 

^ n field width 



L ^ / T N ^ fraction 

^ n length 



Item 


Description/Default 


textfile identifier 


variable of type text; 
default = output 


write parameter 


see drawing 


minimum field width 


integer expression 


fraction length 


integer expression 



Examples 



p r III p t ( f i 1 e _ M a r ) 

prompt(file_uartexp) 

p r III p t ( f i 1 e _ 1.) a r t e X p 1 1 1 

proiTiPtCeKp) 

p roiiipt ( ex p 1 t . . . f e xpfi ) 

prompt 



. texpn ) 



Range Restrictions 



file must be opened to 
write 



greater than 
greater than 
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Semantics 

The procedure proiiipt(f) causes the system to write any buffers associated with textfile f to the 
device. Prompt does not write a line marker on f. The current position is not advanced and the 
buffer varicible f^ becomes undefined. 

You normally use prompt when directing 1/0 to and from a terminal. Prompt causes the cursor to 
remain on the same line after output to the screen is complete. The user may then respond with 
input on the same line. 

The expression parameter e behaves exactly like the equivalent parameters in the procedure write. 
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put 



This procedure assigns the value of the buffer variable to the current file component. 



^Q^Dh3H]I2SSZ}-*©-^ 



Item 



file identifier 



Description/Default 



variable of type file 



Range Restrictions 



file must be open to write 



Example 

p u t ( f i 1 e _ u a r ) 

Semantics 

The procedure put(f) assigns the value of the buffer variable f^ to the current component and 
advances the current position. Following the call, f^ is undefined. 

An error occurs if f is open in the read-only state. 

Illustration 

Suppose examp_file is a file of i n t e s e r with a single component opened in the write-only state by 
appen d. Furthermore, we have assigned 9 to the buffer variable examp_file'^. To place this value in 
the second component, we call put: 

appe nd ( examp_ file ) ; 
examp_file'^: = 9; 



current position 

i 



state: write -only 
examp_file'^: 9 
+ -I- eof(examp_file); true 



put(examp_file): 



current position 

i 





1 




9 



state: write-only 

1 9 examp_file'^: undefined 

eof(examp_file): true 
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read 



This procedure assigns the value of the current component of a file to its arguments. 



^^ identifier [ V_y 




Item 



file identifier 



variable identifier 



Description/Default 



variable of type file 



type compatible with file type; 
see semantics 



Range Restrictions 



file must be open to 

read; 
default = output 



Examples 

read ( f ile_uar tuariable ) 

read(f lie tuariablel I. . . tuariablen) 

read (variable) 

read(yariablel >. . . tvariablen) 

Semantics 

The procedure read(f,v) assigns the value of the current component of f to the variable v, advances 
the current position, and causes any subsequent reference to the buffer variable f to actually load 
the buffer with the new current component. 

Variable Compatability 

If the file is a textfile, the variable can be a simple, string, or PAC variable. If the file is not a textfile, 
its components must be assignment compatible with the variable. Any number of variable identi- 
fiers can appear separated by commas. 

The parameter v may be a component of a packed structure. 

The following statement: 

read( f iv) 

is equivalent to 



1.1 := f 

SetCf ) i 
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If f is a textfile, an implicit data conversion may precede the read operation (see below). 

The call 

r e a d { f M.I 1 , , , , , u n ) ; 

is equivalent to 

read( f »ul ) i 
read(f tu2) ; 

♦ 

r e a d ( f M.I n ) i 

Illustration 

Suppose BKaiiip^f ile is a file of char opened in the read-only state. The current position is at the 
second component. To read the value of this component into char.uar, we call read: 

{initial condition} 



current position 

i 



z I p 



state: read-only 
examp_file'^: i or undefined 
eof (examp_file): false 
char_var: old value, if any 



read(examp_file,char_var) 



current position 

I 



z I p 



state: read-only 
examp_file'^( deferred): p 
eof(examp_fiIe): false 
char_var: i 



Implicit Data Conversion 

If f is a textfile, its components are type char. The parameter v, however, need not be type char. It 
may be any simple, s t rin s, or PAC type. The read procedure performs an implicit conversion from 
the ASCII form which appears in the textfile f to the actual form stored in the variable v. 

If V is type real, Ions real, integer, or an integer subrange, the read operation searches f for a 
sequence of characters which satisfies the syntax for these types. The search skips preceding blanks 
or end-of-line markers. If v is ion 3 real, the result is independent of the letter preceding the scale 
factor. 
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An error occurs if the read operation finds no non-blank characters or a faulty sequence of 
characters, or if an integer value is outside the range of v. After read, a subsequent reference to the 
buffer variable f will actually load the buffer with the character immediately following the number 
read. Also note that eof will be false if a file has more blanks or line markers, even though it 
contains no more numeric values. 

If V is a variable of type st rin s or PAC, then read(f,v) will fill v with characters from f. When v is 
type PAC and e o 1 n(f) becomes true before v is filled, the operation puts blanks in the rest of v. If v 
is type string and eolri(f) becomes true before v is filled to its maximum length, no blank padding 
occurs. St r 1 en(v) then returns the actual number of characters in v. You may wish to use this fact to 
determine the actual length of a line in a textfile. 

If V is a variable of an enumerated type, re ad(f,v) searches f for a sequence of characters satisfying 
the syntax of a HP Pascal identifier. The search skips preceding blanks and line markers. Then the 
operation compares the identifier from f with the identifiers which are values of the type of v, 
ignoring upper and lower case distinctions. Finally, it assigns an appropriate value to v. An error 
occurs if the search finds no non-blank characters, if the string from f is not a valid HP Pascal 
identifier, or if the identifier doesn't match one of the identifiers of the type of v. 

The following table shows the results of calls to read with various sequences of characters for 
different types of v. 

Implicit Data Conversion 



Sequence of characters in f 
following current position 


Type of V 


Result stored in v 


(space)(space)1.850 


real 


1,850 


space ) (linemarker) ( space ) 1 . 850 


longreal 


1,850 


10000(space)10 


integer 


10000 


8135(end-of-line) 


integer 


8135 


54(end-of-line)36 


integer 


54 


1.583E7 


real 


1,583x10(7) 


1.583E + 7 


longreal 


1,583x10(7) 


(space)Pascal 


string[5] 


'Pasc' 


(space)Pas(end-of-line)cal 


string[9] 


'Pas' 


(space)Pas(end-of-line)cal 


PAC 

{length 9} 


'Pas' 


(end-of-line)Pascal 


PAC 
{length 5} 


'Pasca' 


(space)Monday(space) 


ennumerated 


Monday 
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readdir 



This procedure reads a specified component from a direct-access file. 



^ READDIR ) -<r H Ide^t^Mer h -Q-^^^^^^^T^-^T^H^^g^i^^ 



Item 


Description/Default 


Range Restrictions 


file identifier 


variable of type file 




file must be open to 

read; 

file must not be a textfile 


index 


integer expression 




greater than 0; 

less than laspos(file 

identifier) 


variable identifier 


variable that is type 


compatible with file type 


see semantics 



Examples 

r e a d d i r ( f i 1 e - u a r t i n d x 1 1.1 a r i a b 1 B ) 

r e a d d i r ( f i 1 e _ u a r t i n d X ( 1.1 a r i a b 1 e 1 I . . • » u a r i a b 1 e n ) 

Semantics 

The procedure re add i r(f,k,v) places the current position at component k and then reads the value 
of that component into v. Formally, this is equivalent to: 

seeK{f .R) ; 
r e a d ( f iv) i 

The call set(f) is not required between seek and read because of the definition of read. 

You can use the procedure readdir only with files opened for direct access. Thus, a textfile cannot 
appear as a parameter for readdir. 
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Illustration 

Suppose examp_file is a file of inteser with four components opened in the read-write state. The 
current position is the first component. To read the third component into int_var, we call readdir. 
After readdir executes, the current position is the fourth component. 



{initial condition} 



current position 

i 





9 




1 




40 




10 



state: read-write 
examp-file'^: undefined 
eof(examp_file): false 
inL-var: old value 



readdir(examp_file,3,in1_var); 



current position 

i 





9 




1 




40 




10 



state: read-write 
examp_file'^(deferred): 10 
eof(examp_file): false 
inLvar: 40 
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readln 



This procedure reads a value from a textfile and then advances the current position to the beginning 
of the next line. 



—*{^ READLN y- 



UQ. 



Lj text file L-YTV^ 
^ n identifier | ^^J_J 







variable 

ident i f ier 



<D-^ 



Item 



textfile identifier 
variable identifier 



Description/Default 



variable of type textfile; 
default = input 

variable must be a simple type, a string type or a 
PAC 



Range Restrictions 



file must be open to read 



Examples 



readlri( file) 

r e a d 1 11 ( f i 1 e » u a r i a b 1 e ) 

r e a d 1 n ( f i 1 e t u a r i a b 1 e 1 t , , . m; a r i a b 1 e n ) 

r e a d 1 n ( u a r i a b 1 e ) 

r e a d 1 n ( 1.1 a r i a b 1 e 1 1 , , , t u a r 1 a b 1 e n ) 

readln 

Semantics 

The procedure readln (f, v) reads a value from the textfile f into the variable v and then advances the 
current position to the beginning of the next line, i.e. the first character after the next end-of-line 
marker. The operation performs implicit data conversion if v is not type char (see discussion of r e a d 
above). 

The call r e a d 1 n ( f i u 1 » , , , t u n ) is equivalent to 

r e a d ( f » u 1 f . . . ) tin ) I 
readln (f ) i 



If the parameter v is omitted, readln simply advances the current position to the beginning of the 
next line. 
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real 



The type real represents a subset of the real numbers. 



The type real is a standard simple type. For HP Pascal, the range of the subset is implementation 
dependent. 

Permissible Operators 

assignment: : = 

relational: < > < = » = » <> » > = ' > 

arithmetic - +i -» *t / 

Standard Functions 

real argument: abst arctan* cos* expt Int roundt sini s-irt sqrti trunc 
real return: absi arctan i cost expt Irii sint sqri sqrt 

Example Code 

PROGRAM 5how_realriijtii(outpiit ) ; 

VAR 

r e a 1 n u ni : r e a 1 i 

BEGIN 

realriLiiii := 6.023E+23i 

writelri ( realnum) i 
END. 
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RECORD 



A record is a collection of components which are not necessarily the same type. Each component is 
termed a field of the record and has its own identifier. 

A record type is a structured type and consists of the reserved word RECORD, a field list, and the 
reserved word END. 

The reserved word PACKED may precede the reserved word RECORD. It instructs the compiler to 
optimize storage of the record fields. 



record type 
ident i f ier 



PACKED 



>> 



> ( RECORD ) -^ [^^^f^ 



END J — ^ 



The field list has a fixed part and an optional variant part. 



Field List: 



f ixed 
part 



<D^ 



"^^ 



var iant 
part 



In the fixed part of the field list, a field definition consists of an identifier, a colon (:), and a type. Any 
simple, structured, or pointer type is legal. Several fields of the same type can be defined by listing 
identifiers separated by commas. 



Fixed Part of a Field List: 



'.'- 



■G- 



O 



f ield 

ident i f ier 



-GH 



type 



In the variant part, the reserved word CASE introduces an optional tag field identifier and a 
required ordinal type identifier. Then the reserved word OF precedes a list of case constants and 
alternative field lists. Fields of type file or of a type which contains files are not legal in the variant 
part of a record. 
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Variant Part of a Field List: 



— «>(^case)- 



< 



ident i f ier 



type 
ident i f ier 



Jul* 



o 



<D- 



[, — v_| TJ 

^—M^ . . 1 — »■ constant — ^ 



<IMiH3S-<D 



Case constants must be type compatible with the tag. Several case constants may be associated 
with a single field list. The various constants appear separated by commas. Subranges are also legal 
case constants. The empty field list may be used to indicate that a variant doesn't exist (see 
example). HP Pascal does not require that you specify all possible tag values. 



Field List: 



£ 



■o- 



O-n 



i dent i f ier 



'\[j~^ *yp 



^--* identifier — *\ i ) 



identifier *\^ 0^ J " 



I 







L, 



constant 



o 



"onstant ^ 



-GKiM^ 



You may not use the OTHERWISE construction in the variant part of the field list. OTHERWISE is 
only legal in CASE statements. 

Variant parts allow variables of the same record type to exhibit structures that differ in the number 
and type of their component parts. If a record has multiple variants, when a variant is assigned to 
the tag field, any fields associated with a previous variant cease to exist and the new variant's fields 
come into existence with undefined values. An error occurs if a reference is made to a field of a 
variant other than the current variant. 



A field of a record is accessed by using the appropriate field selector. 
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Permissible Operators 

assignment (entire record): 

field selection: 



Example Code 

TYPE 

w r d _ t y p e = ( i n t » c h ) i 

word = RECORD {uariant part only with taS) 

CASE word-tas: word_type OF 
i ri t : ( ri u (ii b e r : i n t e S e r ) i 

ch : (chars : PACKED ARRAY [1..2] OF ohar)! 
END! 

p 1 y 5 = ( c 1 r c 1 e I square* r e c t a n 3 1 e • t r i a n J 1 e ) i 
polygon = RECORD {fixed part and taJless uariant part) 
p 1 y _ 1 r : ( r e d » y e 1 1 o w f b 1 u e ) i 
CASE Polys OF 

circle: (radius: i n t e S e r ) ! 

s <i u a r e : (side: i n t e S e r ) ! 

r e c t a n 3 1 e : ( 1 e n S t h • width: i n t e S e r ) i 

t r i a n S 1 e : ( b a s e i height: i n t e S e r ) i 

end; 

name-stnns = PACKED ARRAY [1..30] OF chari 

date_info = PACKED RECORD {fixed part only} 

(iio : ( J an » f e b • mar) ap r » may i J un i 
J u 1 • a u 3 • s e p > c t • n o u • dec)! 

da: 1 . . 3 1 ; 

y r: 1900, .2001 i 

end; 

m a r i t a 1 _ 5 1 a t u s = ( m a r r i e d t separated) d i u o r c e d * s i n 3 1 e ) i 
per5on_info = RECORD {nested variant parts} 

name : riaiiie_s t ri n 3 i 
born: d a t e _ i n f o ; 
CASE status: mari tal_st atus OF 
married. . d i u o r c e d : 

( y h e n : d a t e _ i n f o i 
CASE has-Kids: boolean OF 
true: (ho w _ m a n y : 1 » . 5 ) ; 
false: ( ) i {Empty u a r i a n t } 
) 
5 1 n 3 1 e : ( ) i 

end; 
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Record Constructor 

A record constant is a declared constant defined with a record constructor which specifies values for 
the fields of a record type. 

A record constructor consists of a previously declared record type identifier and a list in square 
brackets of fields and values. All fields of the record type must appear, but not necessarily in the 
order of their declaration. Values in the constructor must be assignment compatible with the fields. 



Record Constant: 



record type 
identifier 



KD 



£ 



O 



Q 



field 
ident i f ier 



YO 



structured 
constant 



•o- 



For records with variants, the constructor must specify the tag field before any variant fields. Then 
only the variant fields associated with the value of the tag may appear. For free union variant 
records, i.e. tagless variants, the initial variant field selects the variant. 

The values may be constant values or constructors. To use a constructor as a value, you must 
define the field in the record type with a type identifier. A record constant may not contain a file. 

A record constructor is only legal in the CONST section of a declaration part. It cannot appear in 
other sections or in an executable statement. 



A record constant may be used to initialize a variable in the body of a block. You can also select 
individual fields of a record constant in the body of a block, but not when defining other constants. 
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Example Code 



TYPE 
sec u. 
c D u n 



repo rt 



rt ype = (lishtt mediLinij heavy); 

ter = RECORD 

P a 3 e 5 : i n t e j e r i 
lines: i ri t e 3 e r i 
characters: integer; 

end; 

= RECORD 

r e y 1 5 i n : char! 

price: real! 

i M f : CO u n t e r i 

CASE 5 e c Li r t a J : s e c u r t y p e OF 



1 iSht : 
tiiedi uiii ; 
h e a M Y i 



( (ti c d e : integer)! 
( h c u d e : i n t e S e r i 

password: s t r i n 3 [ 1 () ] ) i 



END! 



CONST 
n _ c u. Ti t 
biS_report 



coLiriter [pa.Jes: Ot characters: Of lines: 0] 
report [ r e u i s i o n : ' B ' t 

price: 19.00 • 

info: counter [ p a 3 e s : 19* 
lines: 25. 
characters: SO ] 
s e c u r t a 3 : h e a u y . 
hcode: 399. 
password: ' u n i t y ' ] i 



n _ r e F r t = report [ r e u i s i o n : ' ' ! 

price : . ! 

info : n _ c u n t ! 

s e c u r t a 3 : 1 i 3 h 1 1 i 



Record Selector 

A record selector accesses a field of a record. The record selector follows a record designator and 
consists of a period and tfie name of a field. 



f ield 
ident i f ier 



A record designator is the name of a record, the selected component of a structure which is a 
record, or a function call which returns a record. 



The WITH statement "opens the scope" of a record, making it unnecessary to specify a record 
selector. 



RECORD 157 



Example Code 



PROGRAM show- reco rdsel ecto r i 

TYPE 

r.type = RECORD 

f 1 : i n t e S e r i 
f2: chari 

end; 

UAR 



a»b 
ch 
r 

r e c _ a r r a y 
BEGIN 



integer! 

char ! 

r _ I y p e ! 

ARRAY [1,.10] OF r_type; 



r . f 1 + b ! { A s 5 i 3 ri s current m a 1 u. e of i n t e J e r field } 
■{ofrplusbtoa. } 



rBC_array[a] . f2: = chi {AssiJns current ualue of ch to char > 
, {field of a ' t h component of r e c _ a r r a y i } 

END. 
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Recursion 



A recursive procedure or function is a procedure or function that calls itself. It is also legal for 
procedure A to call procedure B which in turn calls procedure A. This is indirect recursion and is 
often an instance when the FORWARD directive is useful. 

When a routine is called recursively, new local variables are created dynamically (on the stack). 

Example Code 

FUNCTION factorial (n : iriteJer): inteSer; 
{Calculates factorial r e c u r s i u e 1 y } 
BEGIN 

IF n = THEN 
factorial : = 1 
ELSE 
factorial : = n * f a c t o r i a 1 ( n - 1 ) i 
END ; 



release 



This procedure returns the heap to its state when it was marked by the ma rK procedure. 
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-* ( RELEASlO -->(? H.^^^gn[ -<)>^ 



Item 


Description/Default 


Range Restrictions 


heap mari^,er 


a pointer variable 


pointer should have 

previously appeared as a 

parameter in a call to 

(iiarK, and should not 

have been passed to 

release see semantics 



Example 

release (pir) 

Semantics 

The procedure r e 1 e a s e (p) returns the heap to its state when m a r K was called with p as a parameter. 
This has the effect of deallocating any heap variables allocated since the program called marK(p). 
The system can then reallocate the released space. The system automatically closes any files in the 
released area. 

An error occurs if p is not passed as a parameter to m a r k . or if it was previously passed to release 
explicitly or implicitly (see example below). After release, p is undefined. 

Example Code 

PROGRAM show_mark release ! 
yAR 

w • X • y : '■ i ri t e 3 e r i 
BEGIN 

III a r k ( w ) i 

re lease (w)i {Returns heap to state marked b? w. } 

(II a r k ( X ) i 

III a r k ( ;•' ) ! 

r e 1 e a s e ( X ) ! {Returns heap to state marked by x . The } 

, {pointer y no longer marks a heap state.} 

ENDi {Release(y) is now an error. > 
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REPEAT 



A REPEAT statement executes a statement or group of statements repeatedly until a given condi- 
tion is true. 




<D-, 



-* { REPEAT ) -i-> j statement I -U ^UNTIl) - ^ ^°a°c\''o^r'' 



A REPEAT statement consists of the reserved word REPEAT, one or more statements, the reserved 
word UNTIL, and a boolean factor (the condition). 

The statements between REPEAT and UNTIL need not be bracketed with BEGIN.. END. 

When the system executes a REPEAT statement, it first executes the statement sequence and then 
evaluates the condition. If it is false, it executes the statement sequence and evaluates the condition 
again. If it is true, control passes to the statement after the REPEAT statement. 



The statement 


REPEAT 


state ill e n t ; 


UNTIL condition 


is equivalent to the following: 



1 : 5 1 a t e iii e n t ! 

IF NOT coi-id It 1011 THEN GOTO 1 ! 

Usually the statement sequence will modify data at some point so that the condition becomes false. 
Otherwise, the REPEAT statement will loop forever. Of course, it is possible to branch uncon- 
ditionally out of a REPEAT statement using a GOTO statement. 

The compiler can be directed to perform partial evaluation of boolean operators used in a RE- 
PEAT... UNTIL statement, For example: 

REPEAT ,., UNTIL done OR finished 

By specifying the $PARTIAI EVAL 0N$ compiler directive, if "done" is true, the remaining 

operators will not be evaluated since execution of the statement depends on the logical OR of both 
operators. (Both operators would have to be false for the logical OR of the operators to be false.) 
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Example Code 



sum := Oi 
c u n t : == i 
REPEAT 

writelri( 'Enter trial ualu.e) or "-1" to quit')! 

read ( u a 1 u e ) ! 

sum := sum + ualuei 

coLirit ! = Lint + 1 i 

aue ra je : = sum / count i 

writeln ('ualue ='» ualuet ' aueraSe ='> aueraSe) 
UNTIL (count >= 10) OR (yalue = -l)i 



REPEAT 

writeln ( r e a 1 _ a r r a y [index]) 

index : = i n d e k + 1 ! 
UNTIL index > limiti 
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Reserved Words 



These are the reserved words recognized by HP Pascal. 



AND 


ARRAY 




BEGIN 






CASE 


CONST 




DUJ 


DO 


DOWNTO 


ELSE 


END 


EXPORT 


FILE 


FOR 


FUNCTION 


GOTO 






IF 


IMPLEMENT 


IMPORT 


LABEL 






MOD 


MODULE 




NIL 


NOT 




OF 


OR 


OTHERWISE 


PACKED 


PROCEDURE 


PROGRAM 


RECORD 


REPEAT 




SET 






THEN 


TO 


TYPE 


UNTIL 






UAR 






WHILE 


WITH 





IN 



Reserved words can not be used as identifiers. 

The letter-case of reserved words is unimportant. They may be typed in either upper or lower case. 
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reset 



This procedure opens a file in the read-only state and places the current position at the first 
component. 



^O-d 



nyslcal file 
spec i f ier 



I ^/0\ ^1 option 
VL/ n string 



r<l>- 



Item 



file identifier 
physical file specifier 

options string 



Description/Default 



variable of type file 

name to be associated with f; must be a string 
expression or PAC variable 

a string expression or PAC variable 



Range Restrictions 



implementation 
dependent 



Examples 

reset(file_<.iar) 

reset(filB_i.iartfile_riaffle) 

reset (filB_uartfile_ri am etOPt_5tr) 

Semantics 

The procedure reset(f) opens the file f in the read-only state and places the current position at the 
first component. The contents of f, if any, are undisturbed. The file f may then be read sequentially. 

If f is not empty, e of (f) is false and a subsequent reference to the buffer variable ^ will actually 
load the buffer with the first component. The components of f may now be read in sequence. If f is 
empty, however, eof (f) is t rue and f is undefined. A subsequent call to read produces an error. 

If f is already open at the time r e s e t is called, the system automatically closes and then reopens it. If 
the parameter s is specified, the system closes any physical file previously associated with f. 
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Illustration 

Suppose exampJile is a closed file of char with three components. To read sequentially from 
examp_file, we call reset: 

{initial condition} 



a b c 



state: closed 



reset(examp_file); 



current position 

I 



a b c 



state: read-only 
examp_file'^(deferred): a 
eof(examp_file): false 
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rewrite 



This procedure opens a file in the write-only state and places the current position at the beginning of 
the file. 



— »(" REWRITE'^k->^T)-» r Identif 1 



k3H 



physical file 
spec i f ier 



HD- 



L ^ ^ ~ \ -I options I J 
\jy I string 



Item 



file identifier 
physical file specifier 

options string 



Description/Default 



variable of type file 

name to be associated with f; must be a string 

expression or PAC variable 

a string expression or PAC variable 



Range Restrictions 



implementation depen- 
dent 



Examples 



rewrite (file) 

rewrite (file tfile_nafiie) 

re write (file tfile_na(iie fOPt_str) 



Semantics 

The procedure rBwrite(f) opens the file f in the write-only state and places the current position at 
the beginning of the file. The system discards any previously existing components of f. The function 
eof (f) returns true and the buffer variable f^ is undefined. You may now write on f sequentially. 

If f is already open at the time rew ri te is called, the system closes it automatically and then reopens 
it. If s is specified, the system closes any physical file previously associated with f. 
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Illustration 

Suppose examp_file is a closed file of c h a r with three components. To discard these components 
and write sequentially to examp_file, we call rewrite: 

{initial condition} 



a b c 



state: closed 



rewrite (examp_file); 



current position 

i 



state: write-only 
examp_file'^ : undefined 
eof(exampJle): true 
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round 



This function returns the argument rounded to the nearest integer. 



-* (rOUNd) -»(T)- H expression H KA)-^ 



Examples 

Input 

round (bad_real ) 
r 1.1 n d ( 3 1 1 ) 
round (-G. a) 
r u n d ( - 4 . 6 ) 
round (1.5) 



Result 

3 
-G 

-5 



Semantics 

The function r o un d (x) returns the integer value of x rounded to the nearest integer. If x is positive or 
zero, then round(x) is equivalent to truno(x + 0.5); othenvise, round(x) is equivalent to trunc(x - 
0.5). An integer overflow occurs if the result is not in the range fiunint..(iiaj<int. 
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Scope 



The scope of an identifier is its domain of accessibility, i.e. the region of a program in which it may 
be used. 

In general, a user-defined identifier may appear anywhere in a block after its definition. Furth- 
ermore, the identifier may appear in a block nested within the block in which it is defined. 

If an identifier is redefined in a nested block, however, this new definition takes precedence. The 
object defined at the outer level will no longer be accessible from the inner level (see example 
below). 

Once defined at a particular level, an identifier may not be redefined at the same level (except for 
field names). 

Labels are not identifiers and their scope is restricted. They cannot mark statements in blocks 
nested within the block where they are declared. 

Identifiers defined at the main program level are "global". Identifiers defined in a function or 
procedure block are "local" to the function or procedure. 

The definition of an identifier must precede its use, with the exception of pointer type identifiers, 
program parameters, and forward declared procedures or functions. 

For a module, identifiers declared in the EXPORT section are valid for the entire module, identifiers 
declared after the IMPLEMENT keyword are valid only within the module. 

Example Code 

PROGRAM shoiAi-SCOPe (output) i 
CONST 

asterisK = '#'? 
UAR 

X : cha r i 
PROCEDURE writsit; 

CONST 

X = 'LOCAL AND GLOBAL IDENTIFIERS DO NOT CONFLICT'; 
BEGIN 

write ( X ) 

end; 

BEGIN {show -Scope} 

x:= asterisk; 

write ( X ) ; 

w r 1 1 e i t ; 

write ( X ) 
end. {5how_s.ccipe} 

Results: 

♦LOCAL AND GLOBAL IDENTIFIERS DO NOT CONFLICT* 
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seek 



This procedure places the current position of a file at the specified component. 



-<SEiir)-<? H iden"fier f -^Q— 



Item 


Description/Default 


Range Restrictions 


file identifier 


variable of type file 


must be direct access; 
must be open for read- 
write 


index 


integer expression 


greater than 



Example 

5 e e k ( f i 1 e _ 1.1 a r » i n d X ) 

Semantics 

The procedure seeK(f,k) places the current position of f at component k. If k is greater than the 
index of the highest-indexed component ever written to f, the function eQf(f) returns true, other- 
wise false. The buffer variable f^ is undefined following the call to seek. An error occurs if f is not 
open in the read-write state. 

Illustration 

Suppose examp_file is a file of char with four components opened for direct access. The current 
position is the second component. To change it to the fourth component, we call seek. 

{initial condition} 



current position 

i 



help 



state: read-write 
examp-file'^(deferred): e 
eof(examp_file): false 



seek(examp_file,4); 



current position 

i 





h 




e 




1 




P 



state: read-write 
examp_file'^: undefined 
eof(examp_file): false 
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Separators 



A separator is a blank, an end-of-line marker, a comment, or a compiler option. 

At least one separator must appear between any pair of consecutive identifiers, numbers, or 
reserved words. When one or both elements are special symbols, however, the separator is 
optional. 

Example Code 

IF eof THEN GOTO 99 {Required separators.} 
x;=x+l {Optional separators.} 

x:=x+l {No separators. } 
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SET 



A set is the powerset, i.e. the set of all subsets, of a base type. A set type consists of the reserved 
words SET OF and an ordinal base type. 



Set Type: 



set type 
identlf ier 



PACKED 



>7 



<sei)-*Gl>-HZ^ 



A set type is a user-defined structured type. The base type may be any ordinal type. The maximum 
number of elements is implementation defined but must be at least 256 elements. It is legal to 
declared a packed set, but whether this affects storage is implementation dependent. 

Permissible Operators 

assignment: : = 

union: + 

intersection: # 
difference: 

subset: < = 

superset: > = 

equalitv,': = > < > 

inclusion: I N 

Example Code 

TYPE 

charset = SET OF char! 

fruit = (applet banana) cherrvf peachi peari pineapple)! 

soitiefruit = SET OF apple ■. Ghe rry i 

poets = SET OF (BlaKe* Fro5t» Brecht); 

some_set = SET OF 1. .200i 
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Restricted Set Constructor 

A set constant is a declared constant defined with a restricted set constructor which specifies set 
values. 



Set Constant: 



_J set type |__w/7\j- 

indentifier N^Ay 



o 



^*-^ constant 



I 

^«-*/ , . J—»- constant ^ 



rKD^ 



A restricted set constructor consists of an optional previously declared set type identifier and a list of 
constant values in square brackets. Subranges may appear in this list. 



T-Q^ 



O 



set type J 

identif ier 



^' > ( , . j ^ constan 



rWj)- 



A value must be an ordinal constant value or an ordinal subrange. A constant expression is legal as 
a value. The symbols (. and .) may replace the left and right square brackets, respectively. 

Restricted set constructors may appear in a CONST section of a declaration part or in executable 
statements. Unrestricted set constructors permit variables to appear as values within the brackets. 

You can use a set constant to initialize a set variable in the body of a block. 



Example Code 



TYPE 

diSits = SET OF 0. .9! 

charset = SET OF char! 
CONST 

all_diiits = disits [0.,g]i {.Bub ranJe , } 

odd_diSits = disits LI i 1+2* 5> 7> 9]» 

letters = charset ['a'l.'z't 'A'..'Z']i 

rio_chars = charset []i 

rio_ideri = [2t H , B, 8] {No set identifier.} 
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Set Constructor 

A set constructor designates one or more values as members of a set whose type may or may not 
have been previously declared. A set constructor consists of an optional set type identifier and one 
or more ordinal expressions in square brackets. Two expressions may serve as the lower and upper 
bound of a subrange. 



u 



s t; t type 
identifier 



■d) 



£ 



O 



expression 



'-<ZH 



expression 



-(D- 



If the set type identifier is specified, the values in the brackets must be type compatible with the base 
type of the set. If no set type identifier appears, the values must be type compatible with each other. 
The symbols (. and .) may replace the left and right square brackets, respectively. 

Set constructors may appear as operands in expressions in executable statements. Set constructors 
with constant values are legal in the definition of constants. 

Example Code 

PROGRAM show-set constructor! 
TYPE 

int_5et = SET OF 1. .lOOi 

cap.set = SET OF 'A'.. 'Z'i 
UAR 

atb: 0. .255! 

si : SET OF intese r i 

s2: SET OF chari 
BEGIN 



sl:= irit_set[(a MOD 100) + (b MOD 100)] 
s2:= cap_set['B'.. 'T' , 'X' , 'Z'l! 
END. 
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setstrlen 



This procedure sets the current length of s to the specified length. 



- < SETSTRLEN y -*({)-^ \~~I^. 



length ~*\V *" 



Item 


Description/Default 


Range Restrictions 


string identifier 
new length 


variable of type string 
integer expression 


thru the maximum 
length of the string 



Example 

setst rlen ( St r_i.)ar (irit_exp) 

Semantics 

The procedure s e t s t r l e n (s,e) sets the current length of s to e without modifying the contents of s. 

If the new length of s is greater than the previous length of s, the extra components will be 
undefined. No blank filling occurs. If the new length of s is less than the previous length of s, 
previously defined components beyond the new length will no longer be accessible. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 



Example Code 



UAR 

alpha: st rin sCBO] i 
BEGIN 



alpha:= 'abcdef ; 



{st rleri(alpha) = B) 



setst rleri(alpha f2*5t rlen (alpha) ) i {Doubles current lensth > 

{of alpha. AlphaC?] > 

{throuSh alpha[12] not } 

{defined. } 



setstrlen (alphat2) 

t 

END. 



{Alpha[3] throuSh } 
{alpha[80] unauai lab le . > 
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Side Effects 



A side effect is the modification, by a procedure or function, of a variable not appearing in the 
parameter list. 

Global variables are declared at the beginning of a program before any procedure declarations. 
Global variables are valid during the execution of the program. 

Local variables are variables declared within a procedure or function (or in the headings as para- 
meters) and are only valid during the execution of the procedure of function. 

If you declare a local variable using the same identifier as a global variable, the local variable can be 
modified vi/ithout affecting the global variable. A side effect is likely to occur if you forget to declare 
the variable within the procedure or the procedure heading. Without the local declaration, the 
compiler assumes that the global variable is to be used. 

Example Code 

PROGRAM show-effects (output) ; 

UAR i tJ : inteSeri {Global uariables> 

PROCEDURE oops(i : inteSerJi {i is local to the procedure} 

BEGIN 

IF i > THEN J := J - li {J is a Global uariable) 

end; 

5EGIN 

i := 2; 

J : = 3 i 

p s ( i ) i 

IF i = J THEN writeln ( 'There was a side effect')! 
END. 
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sm 



This function returns the sine of the angle represented by its argument. 



Examples 

Input Result 

s i n ( r a d ) 

sin (0.024) 2.393770E-02 

Semantics 

The function sin(x) computes the sine of x, where x is interpreted to be in radians. X can be any 
numeric value. 
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sqr 



This function computes the square of its argument. 



sslon ~*V^y~*' 



Examples 

Input 

sqr(3) 

sqr(l.igBE3) 
s q r ( m a X i n t ) 



Result 

9 

1.43520aE+0S, 

{error} 



Semantics 

The function sq r(x) computes the value of x squared. If x is an integer value, the result is also an 
integer. If the value to be returned is greater than the maximum value for a particular type, a 
run-time error occurs. 
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sqrt 



This function computes the square root of its argument. 



argument — >/ ) j ^ 



Item 



argument 



Description/Default 



numeric expression 



Range Restrictions 



greater than or equal to 



Examples 

Input 

sqrt(13.5E12) 
5 q r t ( ) 
sqrt (-5) 

Semantics 



Result 

B.OOOOOOE+OO 
3.S7a235E+06 
0.00 000 OE+00 
■terror} 



The function sq rt(x) computes the square root of x. If x ij less than 0, a run-time error occurs. 



179 



Standard Procedures and Functions 

The standard procedures and functions recognized by HP Pascal are listed in the following tables. 
These identifiers may be redefined within a program since they appear "global" to a program. 

Standard Procedures and Functions for HP Pascal 

Procedures Functions 

append s b 5 

close arclan 

dispose binary 



Jet 



new 



y e r p r i n t 



prompt 



ch r 



halt cos 

(itark eof 

e 1 n 



open s K p 



hex 



pack lastpos 

pa^e linepos 



In 



put maxpos 

read octal 

readdir odd 

readln ord 

release position 

reset Pred 

rewrite round 

seek sin 

setstrlen st 

strappend sirt 

strdelete str 

strinsert strlen 

strmoye striiiax 

strread strltriin 

strwrite strpos 

unpack strrpt 

write strrtrim 

writedir s'-ico 

writeln trunc 
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Statements 



A statement is a sequence of special symbols, reserved words, and expressions which either 
performs a specific set of actions on data or controls program flow. 



statement: 



^-*- label — "^T) ' 




HP Pascal statement types and purposes include: 



Statement Type 



compound 

empty 

assignment 

procedure 

GOTO 

IF, CASE 

WHILE, REPEAT, FOR 

WITH 



Purpose 



group statements 

do nothing 

assign a value to a variable 

activate a procedure 

transfer control unconditionally 

conditional selection 

iterate a group of statements 

manipulate record fields 



Empty, assignment, procedure, and GOTO statements are "simple" statements. IF, CASE, 
WHILE, REPEAT, FOR, and WITH statements are "structured" statements because they them- 
selves may contain other statements. 
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A GOTO statement requires a label to mark the location of the statement where execution is to 
continue. The label consists of an unsigned integer and a colon ":" preceeding the "target" 
statement. When a label is used, a LABEL declaration must appear in the declaration section of the 
block containing the GOTO statement and its destination statement. 

The following pages describe compound, and empty statements. 

Compound Statements 

A compound statement is a sequence of statements bracketed by the reserved words BEGIN and 
END. A semi-colon (;) delimits one statement from the next. The system executes the sequence of 
statements in order. 

Certain statements may alter the flow of execution in order to achieve effects such as selection, 
iteration, or invocation of another procedure or function. 

After the last statement in the body of a routine has executed, control is returned to the point in the 
program from which the routine was called. The program terminates after the last statement is 
executed. 



'ij T » ■ statement — ' — ^ 



— »YbEGInV*~» statement ' ^ f END J—^ 



A compound statement has two primary uses: (1) it defines the statement part of a block; (2) it 
replaces a single statement within a structured statement. A compound statement may also serve to 
logically group a series of statements. 

Compound statements are allowed but unnecessary in the following cases. 

1. The statements between REPEAT and UNTIL 

2. The statements between OTHERWISE and the end of the CASE statement. 



182 Statements 



Example Code 



PROCEDURE check_i.iirii 

BEGIN {j^,i5 } 

IF ruin > max THEN {compound } 

BEGIN {Compound } {statement } 

iAiriteIn( 'Min is wronS.')! {statement is} {is } 

'"in := O; {part of IF } {the } 

EI^Di {statement. } {procedure's} 

END! {body, } 

BEGIN {Nested compound statements } 

BEGIN {for loSically sroupin? statements.} 

St art_part_l i 
finish_part_l i 

end; 

BEGIN 

start_part_2 i 
f ini5h_part_2 i 
END! 

end; 
Empty Statements 

An empty statement perfomis no action and is denoted by no symbol. It is often useful for 
indicating that nothing should occur or for inserting extra semi-colons in code. 

These two statements, for example, explicitly specify no action when i is 2,3,4,6,7,8,9, or 10: 

CASE i OF IF 1 IN [2..^, G..10] THEN 

'-' : s t a r t ; { d o n o t h i n 3 } 

1 : continue; ELSE continue; 

2..4 : ; 

5 : repo rt_e r ro r ; 

B . . 1 : ; 

11 : stop i 
OTHERWISE fatal.error; 

end; 

In this compound statement, there is an empty statement before END: 

BEGIN 

I:= J + 1 ; 
K:= I + j; 
END 



This function returns a portion of a string. 
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str 



M2>^ 



Item 



source string 
beginning position 

substring length 



Description/Default 



expression of type string 
integer expression 

integer expression 



Range Restrictions 



1 thru the current length 
of the string + 1 

thru 1 + the 

maximum length of the 

string - the beginning 

position 



Example 

5tr(str_expibe3_P05)Sub_leri) 

Semantics 

The function st r(s,b,e) returns the portion of s which starts at s[b] and is of length e. The result is 
type St rill 3 and may be used as a string expression. An error occurs if strlen(s) is less than the sum 
of b and e minus 1, or b. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a stiing, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 



Example Code 



MAR 
i : 

wi 

3 ra 

BEGI 

t 

i : = 

wi 
3rai 

END. 



i ri t e J e r ; 
sh_lisl: stririSC132] ! 
n t e d : s t r i n S [ 5 ] ! 
N 

13! 
5h..li5t:= 'wishl wishZ wish3 wi5h4 wishS'i 
t£!d:= 5tr(i.ii5h_li5t li t5) i {Selects the 3rd wish.} 

{Granted is 'wi5h3'. } 
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strappend 



This procedure appends one string to the end of another. 



—*^ STRAPPEND }—*>{?)—- 



string 
ident i f ien 



str ing 
expression 



Item 



string identifier 
string expression 



Description/Default 



variable of type string 
expression of type string 



Range Restrictions 



length must be less than 

the difference between 

the maximum and actual 

length of the string 

variable 



Example 



strapperid(str_uar>str_exp) 

Semantics 

The procedure st rapperid(sl,s2) appends string s2 to si. The call passes si as an actual variable 
parameter to the procedure. The strlen of s2 must be less than or equal to 
St rmax(sl) - st rleri(sl). That is, it cannot exceed the number of characters left to fill in si. The 
current length of si is updated to strlen(sl) + strlen(s2). 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

UAR 

(iiessase: st rinsE 1321 
BEGIN 

(ii e s s a 3 e : = 'Now hear ' i 
strappenddiiessaiet'this! ') i 



END. 



This procedure deletes characters from a string. 
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strdelete 



—»-(^ STRDELETE }— *{T)— *• 



string 
ident i f ier 



K>H] 



Item 


Description/Default 


Range Restrictions 


string identifier 


variable of type string 




- 


beginning position 


integer expression 




1 thru the current length 
of the stiing 


deletion length 


integer expression 




thru 1 + the 

maximum length of the 

string - the beginning 

position 



Example 

slrdelete(str_Martbe3iri_Postdel_len) 

Semantics 

The procedure st rdelete(s,p,n) deletes n characters from s starting at component s[p], and the 
current lencjth of s is updated to the length s - n. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 



Example Code 



PROGRAM 5how_5t rdelete i 
UAR 

Ion St short: strinSLSOli 
BEGIN 

1 n S : = ' t i n v p i c k 1 e ' i 

5trdelete(lonSf4t5) i 

short := Ion Si {short is 'tinkle'i} 

END, 
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Strings 



In HP Pascal, a string is a packed array of char whose naaximum length is set at compile time and 
whose actual length may vary dynamically at run time. 

A 5 1 r i n 3 type consists of the standard identifier s t r i n s and an integer constant expression in 
square brackets which specifies the maximum length. 



string Type: 



- < STRING > ->(T)- H '"n^"t 



Item 



maximum length 



Description/Default 



integer expression 



Range Restrictions 



1 thru an implementation 
dependent number 



The limit for the maximum length is implementation defined. The symbols (. and .) may replace the 
left and right square brackets, respectively. 

A St r i n s type is a standard structured type. 

Characters enclosed in single quotes are string literals. The compiler interprets a string literal as type 
PAC, strins, or char, depending on context. 

Integer constant expressions are constant expressions which return an integer value, an unsigned 
integer being the simple case (see Constant Definition above). 

When a formal reference parameter is type st rins, you may choose not to specify the maximum 
length (see example below). This allows actual string parameters to have various maximum lengths. 

A single component of a string can be accessed by using an integer expression in square brackets as 
a selector. The numbering of the characters in the string begins at one (1). In other words, to select 
the first character of a string named s, type: s [ 1 ] . The standard function s t r selects a substring of a 
string. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 



Note 
Variables of string type, as other Pascal variables, are not initialized. The 
current string length contains meaningless information until you initialize 
the string. 
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Permissible Operators 

assignment: ; = 

concatenation: + 

relational: = > <> > < = » > = > > > < 

Standard Functions 

string argument: str* strleiit strltrinu stmiaxt strpost strrptt strrtrim 

string return; strt strltrimj strrptt strrtrim 

Standard Procedures 

string parameter: setstrlen* strappend* strdeletet stririserti slrmoMet strreadt 
St rw rite 

Example Code 

CONST 

maxlenSth = lOOi 

TYPE 

name = st ririS[30] i 

remarK = 5t rin^Eniaxleriith * 2]i 

PROCEDURE procl (MAR s: striri3)i EXTERNAL! {Maxinium lenSth } 

{not required. } 

String Constructor 

A string constant is a declared constant defined with a string constructor which specifies values for a 
5 1 r i n 3 type. 

A string constructor consists of a previously defined string type identifier and a list of values in 
square brackets. 



O- 



' 'T i "9. tyP« \-*/T) *\ constant 1-1-, T-'-^^T)-^ 

identifier | ^\^y ^ | t >._• 



I, — vj — =r7 

>— »/ OF J — » constant ' 



Within the square brackets, the reserved word OF indicates that a value occurs repeatedly. For 
example 3 OF 'a' assigns the character "a" to three successive string components. The symbols (. 
and . ) may replace the left and right brackets, respectively. String literals of more than one character 
may appear as values. 

The length of the string constant may not exceed the maximum length of the s t r i n 3 type used in its 
definition. 

String constructors are only legal in a CONST section of a declaration part. They cannot appear in 
other sections or in executable statements. 
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A string constant may be used to initialize a variable in the statement part of a block. You may also 
access individual components of a string constant in the body of the block, but not in the definition 
of other declared constants. 



Example Code 

TYPE 

s = stririSEBOli 



CONST 

blank = ' 'i 

ireetins = sE 'Hello !'] i 

farewell = 5['G',2 OF ' o ' , ' d ' » ' by e ' ] i 

blariK-strinS = sElO OF blank]! 



String Litereds 



A string literal consists of any combination of the following. 

• A sequence of ASCII printable characters enclosed in single quote marks. 

• A sharp symbol (#) followed by a single character. 

• A sharp symbol (#) followed by up to three digits which represent the ASCII value of a 
character. 



_,y^i_J^ 



Or 



U0- 



character 



IC 



digit 
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Up to 3 digits 



The printable characters appearing between the single quotes are those ASCII characters assigned 
graphics and encoded by ordinal values 32 through 126. 

A letter or symbol after a sharp symbol is equivalent to a control character. For example, #G or #g 
encodes CTRL-G, the bell character. The compiler interprets the letter or symbol according to the 
expression ch r(o rd(letter)MOD 32). Thus, the ordinal value of G is 71; modulus 32 of 71 is 7; and 
the ASCII value of 7 is the bell. 

A number after a sharp symbol may contain up to three digits but must be in the range 0..255. It 
directly encodes any ASCII character, printing or non-printing. For example, the string literal 
#80#65#83#67#65#76 is equivalent to the string literal "PASCAL". 

A string literal is type char, PAC or s t r i n s, depending on the context. 

If a single quote is a character in a string literal, it must appear twice. 

A string literal may not be longer than a single line of source code, nor may it contain separators, 
except for spaces (blanks) within the quotes. 

Two consecutive quote marks (") specify the null or empty string literal. Assigning this value to a 
string variable sets the length of the variable to zero. Assigning it to a PAC variable blank-fills the 
variable. 
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Examples 



'Please dori''ti' {SinSle quote character.} 

'A' 

{ N u 1 1 s t r 1 n 3 . } 

*f 

«t243#H 

#27'that was an ESC chart and this is also'*[ 

'this strins has fiMe bel 1 s '»G«Stts(«7«7 ' in it' 



strinsert 



This procedure inserts a string into another string. 
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f „,„,., „^„, 'V f'7\ linsertl ^/^ . I destination | ^/ ~ ^ ^1 insert |__^/T\_^ 
—* \ STRINSERT > -^(>-* istring| — *\'/- n string r ^'/~ n position \ ^\j T^ 



Item 



insert string 



destination string 
insert position 



Description/Default 



expression of type string 



variable of type string 
integer expression 



Range Restrictions 



length less than 

maximum length of 

destination - insert 

position 



1 thru current length of 
destination string 



Example 

5 1 r i n 5 s r t ( i n 5 e r t » d e s t J p s ) 

Semantics 

The procedure st rinse rt(sl,s2,n) inserts string si into s2 starting at s2[n]. Initially, s2 must be at 
least n-1 characters in length or an error will occur. The resulting string may not exceed s t riiiax(s2). 
The current length of s2 is updated to strlen(sl) + strlen(s2). 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

iJAR 

refiiark: st rinSESO] i 
BEGIN 

r e (ii a r K : = 'There is ni i s s i n 3 ! ' i 

s t r i n s e r t ( ' s o (n e t h i n 3 ' t r e in a r K • 9 ) i 



END. 
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strlen 



This function returns the current length of a string. 



-* { STRLEN ) -<0- H exg^e^sfcn H j)-^ 



Example 

s t r 1 e ri ( s t r _ e H p ! 

Semantics 

The function strlen (s) returns the current length of the string expression s. 

If s is not initialized, st rl eri(s) is undefined. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 



Note 

The strlen function can only be used with strings, not PAC's. 



Example Code 

'.'AR 



ars . uita: st rin3[132] ! 
b : boolean; 
BEGIN 

IF strlen (ars) > s t rl en ( yi ta ) THEN 

b : = true 
ELSE 

hal t ; 

END. 
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strltrim 



This function returns a string trimmed of all leading blanks. 



Example 

5trltriiii(str_exp) 

Semantics 

The function s t r it r i (ii(s) returns a string consisting of s trimmed of all leading blanks. The function 
s t r r t r i m trims trailing blanks. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

UAR 

s: striniCBOli 
BEGIN 
t 
s : = ' a b c ' i 

s:=st rlt rifii(s) ; {s is now 'abc'} 



{5trleri(s) = 3 } 



END, 
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strmax 



This function returns the maximunn allowable length of a string. 



- < STRMAX ) -<?)- H i.enti^fen | -<)>^ 



Item 



string identifier 



Description/Default 



variable of type string 



Range Restrictions 



Example 

s t r (ti a X ( s t r _ I.) a r ) 

Semantics 

The function st rma)<(s) returns the maximum length of s. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

UAR 

s: strin3[132]; 
BEGIN 

IF 5trleri(3) = 5lr(iiax(s) THEN 
BEGIN 

s : = 5 1 r 1 1 r 1 (ii { s ) i 
s:= strrtrifii(s)i 

end; 



END. 



strmove 



This procedure copies characters from one string or PAC to another. 
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- <S^^>^> -*CO- H length 



1^ source I ^ / ^ ^ 
ourc:e[ — »^.J— 1 ^ position [ -"VV \ 

(■ - ^ ^ 

{ . I destination I ^ /^ ^ ^1 destination I ^ / TN ^ 
^ n identifier r ^' J~ ^ position r ^^'J^ 



Item 


Description/Default 


Range Restrictions 


copy length 


expression of type integer 


see semantics 


source 


expression of type string or variable of type PAC 


- 


source position 


integer expression 


1 thru current length of 
source string 


destination identifier 


variable of type string or PAC 


- 


destination position 


integer expression 


1 thru current length of 
destination string - 1 



Example 

strmouelcopy-len tsource isoijrce_pos tdB5t_id tdest-pos) 

Semantics 

The procedure st riiioije(n,sl,pl,s2,p2) copies n characters from si, starting at si [pi], tos2, starting 
at s2[p2]. String length is updated, if needed, to p2 + (n - 1) if p2 + (n-1) > strlen(s2). 

If p2 equals strleri(s2) + 1, strmoue is equivalent to appending a subset of sl to s2. 

You may use strmoue to convert PAC's to strings and vice versa. It is also an efficient way of 
manipulating subsets of PAC's. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

You should not strmove into an uninitialized variable regardless of its type. 
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Example Code 



UAR 

pac: PACKED ARRAYE1..15] OF char! 
s: St rinse 80] i 
BEGIN 

5:= " ; 

pac:= 'Heuilett-PacKard ' ! 

St riiioue ( 15 tpac il ts il ) ; {Conuerts a PAC to a striri3.} 
END. 
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strpos 



This function returns the starting position of the first occurrence of a series of characters within a 
string. 



->r^^^^^^{T M!g^a -*Q- H ''sVp^nT H j>^ 



Item 



source string 
pattern string 



Description/Default 



expression of type string 
expression of type string 



Range Restrictions 



Example 

St rpos ( source ipatte rn ) 

Semantics 

The function st rpo5(sl,s2) returns the integer index of the position of the first occurrence of s2 in 
si. If s2 is not found, zero is returned. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 



Note 

Some HP Pascal implementations have the order of the two parameters 
reversed. Also, a compiler option may exist for reversing the order of 
parameters. 



Example Code 



CONST 

separator = ' '! 
UAR 

i : i n t e i B r ! 

names : st rinsEBO] ! 
BEGIN 

riames:;= 'Jon Jill Ruth Mamie Bob Joan Wendy'! 
i: = strpos (names tseparator)! 
IF i <> THEN 

strdelete(nanies j1 ti) i {deletes first name} 



END 
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strread 



This procedure reads a value from a string as if it were an external textfile. 



-* ( STRREAD > -*(T> H ex^^C^s?on> <> 4IIl^II^rh ^O-Hgha^act:^K 



-c?; 



GH 



var iab le 
ident i f ier 



<D- 



Item 



string expression 
starting position 
next free ciiaracter 
variable identifier 



Description/Default 



expression of type string 

expression of type integer 

variable of an integer or integer subrange type 

simple, string, or PAC variable 



Range Restrictions 



Examples 

5 t r r e.a.d ( 5 t r _ e X p ) 5 1 a r I _ p s ( n e X t _ c h a r » u a r i a b 1 e ) 
strread(5tr_exP(5tart_posiriext_char>Mariablelt,...uariableri) 

Semantics 

The procedure st rread(s,p,t,v) reads a value from s, starting at s[p], into the variable v. After the 
operation, the value of the variable appearing as the t parameter will be the index of s immediately 
after the index of the last component read into v. 

S is treated as a single-line textfile. St rread(s,p,t,v) is analogous to read(f,v) when f is a textfile of 
one line. Like read, strread implicitly converts a sequence of characters from s into the types 

integer, real, lonJreal, boolean, eriunie rate d. PAC, or strinS. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 



Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 
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An error occurs if strread attempts to read beyond the current length of s. 

The call 

s t r r e a d ( s I p 1 1 >u 1 < . ♦ . M n ) i 

is equivalent to 

s t r r e a d ( 5 t p ( t t u 1 ) i 
s t r r e a d ( 5 • t » t i u 2 ) i 

5 1 r r e a d ( s 1 1 1 1 t m n ) i 

Example Code 

UAR 

s: 5triri3[80]i 

Ptt: l,,BOi 

in » n : i in t e 3 e r i 
BEGIN 

s:= ' 12 564 'i 

p:= 1 ; 

s I r r e a d ( s > p 1 1 ) III ) i {The u a 1 u e of m will be 12! } 

{t will be G. } 

St r read ( 5 1 1 jt m ) ! {The ualue of n will be 56ili} 

{ t w 11 1 b e 1 1 , } 

END. 
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strrpt 



This function returns a string composed several copies of its string argument. 



- < STRRPT ) -<()- H e.p^e^sfon h ^Q— P^^^WT)-^ 



Item 



string expression 
repeat count 



Description/Default 



expression of type string 
expression of type integer 



Range Restrictions 



Example 

strrpt(str_BKPirep_courit) 

Semantics 

The function st r rpt ( s .n ) returns a string composed of s repeated n times. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

CONST 

one = ' 1 '■ i 
UAR 

b_nu(Ti: St ririS[32] i 
BEGIN 

b_riuiii: = St rrpt ( one tst rmaK ( b_ni.uii) ) i 
END. 
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strrtrim 



This function returns a string trimmed of trailing blanks. 

— ► ^STRRTRIM ^)— '•^(J— ^ expression ~~*\Jj *" 



Example 

5t rrt rifii( 5t r_exp ) 

Semantics 

The function s t r r t r i m ( s ) returns a string consisting of s trimmed of trailing blanks. Leading blanks 
are stripped by the function st rl t rim (see above). 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a string, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

Example Code 

MAR 

s: strinSEBO] 
BEGIN 

5 : = ' a b c ' i 

5:= 5trrtrim(s); {s is noui 'abc'} 

{ s t r 1 e n ( 5 ) = 3 } 
END. 
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strwrite 



This procedure writes a value to a string as if it were an external textfile. 



- <STRWRITE> -<(>- H idlnt^?! 



tarting | ^/'~\ 
osition \^V 



next 
charact 



^^ 



€^ 



Xj^ ^ parameter Vl/ ^ 



Write Parameter 



enumerated 
express ion 



STRING or PAC 
express ion 



boolean 
factor 



integer 
express ion 



real 
expression 



^ ^f7\ ^ minimum J 

^\j^/ ^ field width | 



L _ w /V^ ^ minimum 

^ n f^eld widtl- 



L fc^/Ov ^[ fraction 1 j 



Item 


Description/Default 


Range Restrictions 


string identifier 


variable of type string 


- 


starting position 


expression of type integer 


1 thru current length of 
the string + 1 


next character 


variable of an integer or integer subrange type 


- 


write parameter 


see drawing 


- 


minimum field width 


integer expression 


greater than 


fraction length 


integer expression 


greater than 



Examples 



strwrite(5tr_exPt5tart_P05triext_charM.iariable) 
strwrite(5tr_exP(5tart_P05trie>{t_charti)ariahlel 



f u a r i a b 1 e n ) 
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Semantics 

The procedure strwrite(s,p,t,e) writes the value of e on s starting at s[p]. After the operation, the 
value of the variable appearing as the t parameter will be the index of the component of s 
immediately after the last component of s that strwrite has accessed. 

S is treated as a single-line textfile. St rwrite(s,p,t,e) is analogous to write(f,e) when f is a one-line 
textfile. As with write, strwrite also permits you to format the value of e as it is written to s using 
the formatting conventions. The same default formatting values hold for s t rw r i t e. 

Strwrite may write into the middle of a string without affecting the original length. 

An error occurs if s t rw r i t e attempts to write beyond the maximum length of s, or if p is greater than 

St rleri(s) -h 1. 

A string expression may consist of a string literal, a string variable, a string constant, a function result 
which is a sitring, or an expression formed with the concatenation operator. 

Strings must be initialized just like any other variable. The string functions and procedures assume 
that the string parameters contain valid information. 

The call 

St rwrite( 5 )P ft tel t . . .eri ) ; 

is equivalent to 

St rwri te ( 5 tP tt tel ) i 
5t rwrite( 5 tt tt »e2) i 



St rwrite ( 5 tt it »eri ) i 

Example Code 

UAR 

s: stririSCBO] 

p )t : 1 . ,80; 

f)3: inteSeri 
BEGIN 

f:= 100 i 

3!= 99! 

P! = li 

St rwritef s tP tt ff : 1 ) i {S is now 'lOO't t is 4 } 

St rwrite(s ft tt I ' 't3:l>) -CS is now '100 99 ' i t is 7. } 

END. 
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Subrange 



A subrange type is a sequential subset of an ordinal host type. A subrange type consists of a lower 
bound and an upper bound separated by the special symbol ". ." (i. e. 10. .99). The upper and 
lower bounds must be constant values of the same ordinal type and the lower bound cannot be 
greater than the upper bound. 

Subrange Type: 



— ^ . . J — ^ constan 



A constant expression may appear as an upper or lower bound. 

A subrange type is a simple ordinal type: boolean, char, inteser, and user-defined enumeration or 
subrange types. 

Permissible Operations and Standard Functions 

A variable of a subrange type possesses all the attributes of the host type of the subrange, but its 
values are restricted to the specified closed range. 

Example Code 

TYPE 

day_of_year = 1 . .SBGi 

lowercase ='a'..'z'; (Host type is char. } 

days = ( M n d ay. T u e s d a y » W e d n e s d a y » 

Thursday .Friday .Saturday .Sunday ) i 
weekdays = M o n d a y . . F r i d a y i 
weekend = Saturday .. Sunday i 

e-type = l.,iriaxsize - 1 {Upper bound is con- > 

■Cstant BKPression. } 

{Maxsize is declared } 

{constant. } 



205 



succ 



This function returns the value whose ordinal number is one greater than the ordinal number of the 
argument. 



^<W)-<rH3^ 



Examples 

Input 

s i.i c c ( p d _ t y p e ) 
s Ll c G ( 1 ) 
s 1.1 c c ( - 5 ) 
s u c c ( ' a ' ) 
s u c c ( f a 1 5 e ) 
5 u c c ( t r Ll e ) 



Result 



-4 
'b' 
true 
{error} 



Semantics 

The function sue o(x) returns the value, if any, whose ordinal number is one greater than the ordinal 
number of x. The type of the result is identical with the type of x. A run-time error occurs if 5ucc(x) 
does not exist. For example, suppose: 



TYPE color = ( red t blue, yellow) 



Then 



5 Ll c c ( r e d ) = blue 
but 5 Ll CO (yellow) is undefined. 
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Symbols 



The following table lists the special symbols valid in HP Pascal. 

Symbol Purpose 

+ add. set union, concatenate strings 

subtract, set difference 

♦ multiply, set intersection 
divide (real results) 
equal to 

less than 

greater than 
( ) delimit a parameter list or a subexpression 
[ ] delimit an array index or a constructor. May be replaced by (. or . ) 

select record field, decimal point 
» separate listed identifiers 

i delimit statements 

: delimit list of identifiers 

define or dereference pointers, access file buffer. May be replaced by (a'. 

not equal 
< = less than or equal, subset 
> = greater than or equal, superset 

: = assign value to a variable 

subrange 
{ } delimit a comment. May be replaced by {* or *) 
« encode a control character 

* delimit a compiler option 
delimit a string literal 

may appear within an identifier 

Separators may not appear within special symbols having more than one component (e.g. : =). 

Certain special symbols have synonyms. In particular, (. and .) may replace the left and right 
brackets [ and ]. The symbol @ may substitute for the up-arrow ", also (* and *) may take the place 
of the left and right braces, { and }. 
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text 



The standard file type i e k t permits ordinary input and output oriented to characters and lines. Text 
type files have two important features: 

1. The components are type char. 

2. The file is subdivided into lines by special end-of-line markers. 

Text type variables are called "textfiles". 

A text file type consists of the predefined type text. 

Textfiles cannot be opened for direct access with the procedure open. Textfiles may be sequentially 
accessed, however, with the procedures reset, rewrite, or append. All standard procedures that 
are legal for sequentially accessed files are also legal for textfiles. 

Certain standard procedures and functions, on the other hand, are legal only for textfiles: read In, 
w r i t e 1 n , p a 3 e , prompt, o m e r p r i n I , e o 1 n , and 1 i n e p o s . 

Textfiles permit conversion from the internal form of certain types to an ASCII character representa- 
tion and vice versa. 

Example Code 

i,'AR 

in y f i 1 e : text! 
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THEN 



See IF. 



TO 



See FOR. 
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true 



This predefined constant is equal to the boolean type whose value is true. 

Example Code 

PROGRAM 5how_triie( output) i 

TYPE 

what ) t ruth : boo lean i 

BEGIN 

IF true THEN write Iri (' always truet always printed')! 

what : = true! 

truth := NOT false! 

IF what = truth THEN w ri te In ( 'Eue ry th inS I say is a lie.')! 
END. 
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trunc 



This function returns the integer part of a real or longreal expression. 



— *(trunc)— »{T)— ► 



real 
expression 



Examples 

Input Result 

I rune ( real_exp) 

trunc (5. 61) 5 

t rij.nc( -3.38) -3 

t rune ( 18.999) 18 

Semantics 

The function t runc:(x) returns an integer result which is the integral part of x. The absolute value of 
the result is not greater than the absolute value of x. An integer overflow occurs if the result is not in 
the range m i n i n t . , m a k i n l . 
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TYPE 



This reserved word delimits the start of the type declarations in a program, module, procedure or 
function. 

A type definition establishes an identifier as a synonym for a data type. The identifier may then 
appear in subsequent type or constant definitions, or in variable declarations. 

The reserved word TYPE precedes one or more type definitions. A type definition consists of an 
identifier, the equals sign ( = ), and a data type. 



Type Definition: 



— K^'tYPE^ ' ' •T identifier 



A data type determines a set of attributes which include: 

• the set of permissible values 

• the set of permissible operations 

• the amount of storage required 

Subsequent pages explain the permissible values and operations for the various data types. 

The three nnost general categories of data type are simple, structured, and pointer. 

Simple data types are the types ordinal, r e a l , or l o n 3 r e a l . Ordinal types include the standard types 
inteser, char, and boolean, as well as user-defined enumerated and subrange types. 

Structured data types are the types array, record, set, or file. The standard type strins is also a 
structured data type. The standard type t e x t is a variant of the file type. 

Pointer data types define pointer variables which point to dynamically allocated variables on the 
heap. 
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The following figure shows the relation of these various categories. 



DRTR TYPES 



POINTER 



SIMPLE 



RERL 



LOKGRERL 



ORDINHL 



INTEGER 



BOOLERN 



CHRP 



ENUMERRTED 



SUBRRNGE 



STRUCTURED 



RRRRY 



RECORD 



SET 



STRING 



PILE 



TEXT 



HP Pascal Data Types 

Type Compatibility 

Relative to each other, two HP Pascal types can be identical, type compatible, or incompatible. 

Identical Types 

Two types are identical if either of the following is true: 

1. Their types have the same type identifier. 

2. If A and B are their two type identifiers, and they have been made equivalent by a definition 
of the form: 



TYPE A = 5 
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Compatible Types 

Two types Tl and T2 are type compatible if any of the following is true. 

1. Tl and T2 are identical types. 

2. Tl and T2 are subranges of the same host type, or Tl is a subrange of T2, or T2 is a 
subrange of Tl. 

3. Tl and T2 are set types with compatible base types and both Tl and T2 or neither are 
packed. 

4. Tl and T2 are PAC types with the same number of components, or if either Tl or T2 is a 
character constant or a string literal constant whose length is less than the length of the other 
type, in which case the constant is extended on the right with blanks to reach a compatible 
length. 

5. Tl and T2 are both s t r i n s types. 

6. Tl and T2 are both real types, i.e. real or 1 o n s r e a 1 . 

Incompatible Types 

Two types are incompatible if they are not identical, type compatible, or assignment compatible. 

Example Code 

TYPE 

i ri t e r u a 1 = . . 1 i 
ranSe = interuali 

UAR 

i.) 1 : . . 1 i 
v2t m3: 0,,10; 



1.1 a 
1.1 5 



i n t e r u a 1 i 
i n t e r 1.1 a 1 i 
r a n 3 e i 



All of the variables are type compatible, but v4, v5, and v6, have identical types. The variables v2 
and v3 also have identical types. 

Just because two types look compatible, it does not mean they are compatible. In the following 
example, type Tl and T2 are not compatible. 

TYPE 

Tl = record 

a : i n t e S e r i 
b ! char! 
e ri d i 

T2 = record 

c : i n t e S e r ! 
d : char! 
e ri d i 



214 



Types 



The following data types are available in HP Pascal. 



Type: 







simple 












type 
















— ^ 


structured 
type 












L^ 


pointer 
type 


J 


Simpl 


e Type: 






. 


ordina 1 
type 












i 


* 














real 
type 


J 




Integ 

-< 


er Type: 


•- 




INTEGER }- 





structured Type: 







array 
type 






- 






— *• 
















set 
type 
















record 

type 














— »- 


file 
type 












*^ 


string 
type 




Point 


3r Type 






.1 


pointe 
ident 


- type 
If ier 






1 


. 


















Lq^ 


type 
ident i f ier 


-J 



Integer Subrange Type 



Subrange Type: 



— ^ constant — ^ , . ) — ^ constant — ^- 
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Real Type: 



K 



real type 
identifier I 

REAL } — ^ 



Array Type: 



array type 
ident i f ier 



PACKED 



^ 



On 



<^^^^lv)-*(I)- H °^"y%^' H -*CJ>-<"°0-" 



type 



File Type: 




^-^TEXT^ 



Record Type: 



record type 
ident i f ier 



^^*Q PACKED } — ' 



{ RECORD ) - 4V^^1 ->Ce^«>-^ 



Set Type: 



set type 
ident i i' ier 



^->^ PACKED } — ^ 



u 



216 



unpack 



This procedure transfers data from a packed array to a regular array. 



- ^ UNPACK ) ->(7>- H^?dangiM 



non-packed array ^ ^ T \ 

identifier \i/ ^ 



Item 



packed array identifier 
starting position 



non -packed array 
identifier 



Description/Default 



variable of type array 

expression which is type compatible with the in- 
dex of the non-packed array 

variable of type PACKED array 



Range Restrictions 



see semantics 



see semantics 



Example 

u n p a c k ( p a c k e d _ a r r a ;•' » s t a r t _ p o s .array) 

Semantics 

Assuming a : ARRAYCnt . , n ] OF t and ;-; : PACKED ARRAY [u.,u] OF t; the procedure 
un p a c k ( z , i , a ) successively assigns the components of the packed array z, starting at component u, 
to the components of the unpacked array a, starting at a[i]. 

All the components of z are assigned. Hence, z must be shorter than or as long as a, i.e. (v - u) < = 
(n -m). Also, the normalized value of i must be less than or equal to the difference between the 
lengths of a andz plus 1, i.e. i-m + 1 <= (n-m) - (v-u) + 1. Otherwise, an error occurs when 
unpack attempts to index a beyond its upper bound (see example below). 

The index types of a and z need not be compatible. The components of the two arrays, however, 
must be type identical. 

The call u n p a c k ( z » i . a ) is equivalent to: 

BEGIN 

k : = i I 
FOR j:= u TO u DO 
BEGIN 
a [ k ] : = 2 [ J ] ; 
IF J <> 1.1 THEN k:= SLicc(k) \ 

end; 
end; 



where k and j are variables that are type compatible with the indices of a and z respectively. 
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Example Code 



PROGRAM show-uripacK ( input tou.tput ) ; 
TYPE 

s u i t _ t y p e s = ( c a s u a 1 i b u s i n e s s » leisure* birthday); 
VAR 

suit : PACKED ARRAY [1,,5] OF suit.typesi 

kase : ARRAY [1,,10] OF suit.typesi 



BEGIN 



uripacKf suit )1 jKase ) ; {After execution* the first 5 } 

{ c (ii p n e fi t s of Kase contain the } 

{ '■) a 1 u e f s u i t . } 

npack ( suit »7 (Kase ) ; -CAn error results because unpack } 

{attempts to assiin a component of > 

{suit to a component of kase which } 

{is out of ranSe. } 



END, 
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UNTIL 



See REPEAT. 
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VAR 



This reserved word delimits the beginning of variable declarations in a Pascal program or module. 

A variable declaration associates an identifier with a type. The identifier may then appear as a 
variable in executable statements. 

The reserved word VAR precedes one or more variable declarations. A variable declaration consists 
of an identifier, a colon ( : ), and a type. Any number of identifiers may be listed separated by 
commas. These identifiers will then be variables of the same type. 



Variable Declaration: 



-*<Sr 



o 



( Kjr 

■ ' »» identifi 



Q- ^ type | ->Q 



The type miay be any simple, structured, or pointer type. The form of the type may be a standard 
identifier, a declared type identifier, or a data type (see example below). 

You may repeat VAR sections and intermix them with CONST and TYPE sections. 

Components of a structured variable may be accessed using an appropriate selector. Pointer 
variable dereferencing accesses dynamic variables on the heap. 

HP Pascal predefines two standard variables, input and output, which are textfiles. Formally, 

UAR 

i ri p u t t output: t e x t i 

These standard textfiles commonly appear as program parameters and serve as default files for 
various file operations. 

Each variable is a statically declared object and is accessible for the duration of the program 
procedure or function in which it is declared. Module variables are accessible for the duration of the 
program which imports the module. 

Every declaration of a file variable F with components of type T implies the additional declaration of 
a buffer variable of type T. The buffer variable, denoted as F", may be used to access the current 
component of the file F. 
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Example Code 



TYPE 

answer = ( ;■- e s t n o » in a v be)! 
UAR 

pasecount ) 

1 i n B c Li n t- • 

c h a r c u n t : i n t e S e r i 



ui h a 1 5 _ t h e : a n s w e r i 

album : RECORD 

speed 
price 
ri a III e 
END! 



{Data type 
( 1p t f r5 > seuB) ; 
real i 
St rinsEZO] ! 



{Standard identifier, } 
{User- declared identifier,} 

} 
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Variables 



A variable appearing in an executable statement takes the following form. 



variable 
ident if ier 



field 
ident i f ier 



I 




o 



expression 






field 
ident If ier 



<]>-* 
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WHILE 



The WHILE statement executes a statement repeatedly as long as a given condition is true. The 
WHILE statement consists of the reserved word WHILE, a boolean factor (the condition), the 
reserved word DO, and a statement. 



When the system executes a WHILE statement, it first evaluates the condition. If the condition is 
true, it executes the statement after DO and then re-evaluates the condition. When the condition 
becomes false, execution resumes at the statement after the WHILE statement. If the condition is 
false at the beginning, the system never executes the statement after DO. 

The statement 

NHILE condition DO statement. 

is equivalent to: 

1 : IF condition THEN BEGIN 
statement i 
GOTO 1 ; 
END ; 

Usually a program will modify data at some point so that the condition becomes false. Otherwise, 
the statement will repeat indefinitely. It is also possible, of course, to branch unconditionally out of a 
WHILE statement using a GOTO statement. 

The compiler can be directed to perform partial evaluation of boolean operators used in WHILE 
statements. For example: 

WHILE a_one AND a_two DO ... 



By specifying the $PARTIAL_EVAL 0N$ compiler directive, if "a_one" is false, the remaining 
operators will not be evaluated since execution of the statement depends on the logical AND of 
both operators. (Both operators would have to be t rue for the logical AND of the operators to be 



t r u e . 
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Example Code 



NHILE index <= limit DO 
BEGIN 

w r i t e 1 ri ( r e a 1 _ a r r a >' [ i n d e m ] ) i 
i n d e X : = i n d e x + 1 i 

end; 



WHILE NOT eof (f) DO 
BEGIN 

read ( f ? ch ) ! 
w r i t e 1 n ( c h ) ! 

end; 
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WITH 



A WITH statement allows you to refer to record fields by field name alone. A WITH statement 
consists of the reserved word WITH, one or more record designators, the reserved word DO, and a 
statement. 




—••(with)-!-* 



A record designator may be a record identifier, a function call which returns a record, or a selected 
record component. 

The statement after DO may be a compound statement. In this statement, you can refer to a record 
field contained in one of the designated records without mention of the record to which it belongs. 
The appearance of a function reference as a record designator is an invocation of the function. 

You may not assign a new value to a field of a record constant or a field of a record returned by a 
function. 



When the system executes a WITH statement, it evaluates the record designators and then 
ecutes the statement after DO. 



ex- 



The following statements are equivalent: 

NITH rec DO 
BEGIN 

f i e 1 d 1 : = el! 

writeln(f ieldl # f ield2) ! 

end; 



BEGIN 

rec.fieldl := ei; 
w r i t e 1 n ( r e c . f i e 1 d 1 

♦ recfieldZ) i 

end; 



Since the system evaluates a record designator once and only once before it executes the state- 
ment, the statement sequence, where f is a field, 



1 := i; 
NITH a[i] DO 
BEGIN 

w r 1 1 e 1 n ( f ) i 
i:=2; 

w r i t e 1 n ( f ) 
ElMDi 



produces the same effect as: 

w r 1 1 e 1 n ( a [ 1 ] , f ) ; 
w r 1 1 e 1 n ( a [ 2 ] . f ) ; 
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Records with identical field names may appear in the same WITH statement. The following inter- 
pretation resolves any ambiguity: 

The statement 

WITH recordl* record 2t ...» record n DO 
BEGIN 

s t a 1, e III e ri t i 

end; 

is equivalent to 

WITH recordl DO 
BEGIN 

WITH recordZ DO 
BEGIN 

i * * 

WITH recordri DO 
BEGIN 

s t a t e III e n t i 

end; 

END! 

end; 

Thus, if field f is a component of both recordl and record2, the compiler interprets an unselected 
reference to f as a reference to record2.f. You may access the synonymous field in recordl using 
normal field selection, i.e. recordl. f. 

This interpretation also means that if r and f are records, and f is a field of r, then the statement 





WITH r DO 




BEGIN 




WITH r.f DO 




BEGIN 




5 1 a t e III e in i 




end; 




END! 


is 


equivalent to 




WITH rtf DO 




BEGIN 




5 1 a t e m e n t j 




end; 



If a local or global identifier has the same name as a field of a designated record in a WITH 
statement, then the appearance of the identifier in the statement after DO is always a reference to 
the record field. The local or global identifier is inaccessible. 
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Example Code 

PROGRAM 5how_with! 



TYPE 

status = ( III a r r i e d t w i d o w e d > d i u o r o e d • s i n i 1 e ) i 
date = RECORD 

iiiorith : (jarit f eb » iiiarj apr» may » Juni 

J u 1 y • a 1.1 3 » s e p t t o o t t n o u i d e c ) i 
1. .31 ; 
i n t e S e r i 



person 



d a y 
y ear 

END! 

RECORD 
11 a III e 



3 3 

sex 
birth 

(lis 

s a 1 a r V 

end; 



RECORD 

first, last: s t r i n S C 1 ] 

end; 

i n t e 3 e r i 
(male, female); 
date ; 
status ; 
real 



UAR 

employee : person; 

BEGIN {show-with} 

WITH employee ( namei birth DO 
BEGIN 

last : = 'Hacker'; 
first : = 'Harry'; 
ss := 21^7483647; 
sex : = male; 
month : = f e b ; 
day := 29; 
year := 1952; 
m s : = s i n i 1 e ; 
salary := 32767.0 

end; 



END {show-with} 
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write 



This procedure assigns a value to the current component of a file and then advances the current 
position. 



— > ^WRi te) — »>(T}- 



text file I ^/ '~ \ J 

identifier | ^^,^y 



On 



write 
parameter 



Q 



file t ^ write 
identifier expression 



r<}>- 



Wnite Parameter 



enumerated 
expression 



STRING or PAC 
expression 



L] ^<H 



boolean 

factor 



integer 
expression 



minimum 
field width 



rj 



^^^ 1 " 

^ ^ / T\ ^ minimum 

^ 1 field width 



^ ^/ ^T \ ^ fraction 
^*V-J~ n length 



Item 


Description/Default 


Range Restrictions 


textfile identifier 


file of type text; 
defaults = output 


file must be opened 


write parameter 


see drawing 


- 


file identifier 


variable of type file 


must be opened to 
write 


write expression 


expression 


must be type 
compatible with file 


minimum field width 


integer expression 


greater than 


fraction length 


integer expression 


greater than 
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Examples 



w r i t e ( f i 1 e _ u a r I e X p : 5 ) 
w r i t e ( f i 1 e _ M a r t e X p 1 i , 
w r i t e ( e X p ) 
write ( expl )♦,, (Bxpn ) 



• e X p n ) 



Semantics 

The procedure w n te(f,e) assigns the value of e to the current component of f and then advances 
the current position. After the call to w r i t e, the buffer variable f is undefined. An error occurs if f is 
not open in the write-only or read-write state. An error also occurs if the current position of a direct 
access file is greater than iitaxpos(f). 

If f is not a textfile, an expression whose result type is assignment compatible with the components 
of f. If f is a textfile, e may be an expression whose result type is any simple or s t r i n si type, a 
variable of type s t r i n s or PAC, or a string literal. Also, you may format the value of e as it is written 
to a textfile (see below). 

The call y r i t e ( f . e ) is equivalent to 
f := e; 

p ij t ( f ) ; 

The call- write(f,el,...en) is equivalent to 

w r i t e ( f ) e 1 ) ; 
w r i t e ( f . e 2 ) ; 



u r i t e ( f t e n ) ! 



Illustration 

Suppose examp_file is a file of i n t e s e r opened in the write-only state and that we have written one 
number to it. To write another number, we call w rite again: 

{initial condition} 



current position 

i 



state: write-only 
examp_file'^: undefined 
eof(examp_file): true 



write(examp^file,19); 

current position 

i 





1 




19 



state: write -only 
examp_file'^: undefined 
eof(examp_file): true 
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Formatting of Output to Textfiles 

When f is a textfile, the result type of e need not be char. It may be any simple, strins, or PAC 
type, or a string literal. The value of e may be formatted as it is written to f using the integer 
field-width parameters m and, for real or longreal values, n. If m and n are omitted, the system uses 
default formatting values. Thus, three forms of e are possible in source code: 



e {default formatting} 

B:i!i {when e is any type) 

e : III : n {when e is real or 1 o n 3 r e a 1 > 



The following table shows the system default values for m. 

Default Field Widtfis 



Type of e 


Default Field Width (m) 


char 


1 


integer 


12 


real 


13 


longreal 


22 


boolean 


length of identifier 


enumerated 


length of identifier 


string 


current length of string 


PAC 


length of PAC 


string literal 


length of string literal 



If e is boolean or an enumerated type, what gets written is implementation defined. 

When m is specified and the value of e requires less than m characters for its representation, the 
operation writes e on f preceded by an appropriate number of blanks. If the value of e is longer than 
m, it is written on f without loss of significance, i.e. m is defeated, provided that e is a numeric type. 
Otherwise, the operation writes only the leftmost m characters. M may be if e is not a numeric 
type. 

When e is type r e a 1 or 1 o n s r e a 1 , you may specify n as well as m. In this case, the operation writes e 
in fixed-point format with n digits after the decimal point. If n is 0, the decimal point and subsequent 
digits are omitted. If you do not specify n, the operation writes e in floating-point format consisting 
of a coefficient and a scale factor. In no case is it possible to write more significant digits than the 
internal representation contains. This means write may change a fixed-point format to a floating- 
point format in certain circumstances. 
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Example Code 



PROGRAM 5houi_f nuats (output) 
'v'AR 

X : real ! 

1 r : 1 n S r e a 1 i 

S e r s e : h o o 1 e a n i 

list: ( ;■' e s t no* ma v he) ! 
BEGIN 

write In (999) ! 

write In (999: 1 ) i 

writeln('abc')! 

ui r i t e 1 n ( ' a b c ' : 2 ) i 

x:= 10.999; 

w r 1 1 e 1 n ( K ) i 

w r i le In ( K : 25 ) i 

w n t e 1 n ( X : 2 5 : 5 ) i 

wntelnl x :25: 1 ) ! 

w r i t e 1 n ( X : 2 5 : ) ! 

1 r : = 19.1111! 

w r i t e 1 n ( 1 r ) i 

J e Q r S e : = true! 

w r i t e 1 n ( J e o r S e ) ! 

w r i t e 1 n ( 3 e r g e : 2 ) i 

1 i s t : = III a v b e i 

w r i t e ( 1 i 5 1 ) ! 
END. 



{default f riiiatt ln3} 
{ f r (ii at defeated} 

\ s t r i n 3 literal t r u n c a t e d } 

{ d e f a u It f r iTi a 1 1 1 n a } 



{default format} 



{def aul t f rniat t in i} 



The output of this program is: 

999 
999 
abc 
ab 
1 .099900E+01 

1 .099900E+01 
10.99900 
11.0 
11 
1.911 10992^13 lGillL + 001 
TRUE 
TR 
MAYBE 
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writedir 



This procedure places the current position at the specified component and then writes the value of 
its argument to that component. 



— > {^WRITEDIR )-»»{T)- H~icientlf. 



index -i-„{jy-^ expTeVs^lan | ~^Vy~*" 



Item 



file identifier 



index 



write expression 



Description/Default 


Range Restrictions 


variable of type file 






file must be open to 

write; 

file must not be a textfile 


integer expression 






greater than 0: 

less than laspo5(file 

identifier) 


expression that is 
type 


type compatible with file 


see semantics 



Examples 



w r i t e d i r ( f i 1 _ u a r > i n d x > e x f ) 

w r i t e d i r ( f i 1 _ u a r 1 1 n d X > e X p 1 > . . . t e x p n ) 



Semantics 

The procedure w r i t e d i r(f,k,e) places the current position at the component of f specified by k and 
then writes the value of e to that component. It is equivalent to 



s e e K ( f ! k ) i 
w r i t e ( f t e ) 



An error occurs if f has not been opened in the read-write state or if k is greater than maxpos(f). After 
writedir executes, the buffer variable f^ is undefined and the current position is k + 1. 
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Illustration 

Suppose file examp_file is a file of i n t e s e r opened for direct access. The current position is the third 
component. To write a number to the first component, we call writedir: 

{initial condition }^ 



current position 

i 





10 




19 




1 



state: read- write 
examp_file''(deferred): 1 
eof(examp_file): false 



writedir(examp_file,l,4 + 5); 



current position 

i 





9 




19 




1 



state: read- write 
examp-file": undefined 
eof(examp_file): false 
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writeln 



This procedure writes the value of its argument to a textfile. 



— *^WRITELNr^ 



U0- 



V_J text file l_,y7V^ 
^ n identifier | ^^_y 



■o^ 



write 
parameter 



"Oy 



Write Parameter 



enumerated 
expression 



STRING or PAC 
expression 



boolean 
factor 



integer 
expression 



real 
expression 



I i I ~ ~r 

L ^ / T N ^ minimum ) 

^ n field widtn | 



l^ minimum 
*\j_^^ " j field width 



klH 



fraction 
length 



Item 


Description/Default 


Range Restrictions 


textfile identifier 


file of type text; 
default = output 




file must be opened to 
write 


write parameter 


see drawing 




- 


minimum field width 


integer expression 




greater than 


fraction length 


integer expression 




greater than 



Examples 



w r i t e 1 n ( f i 1 _ u a r ) 

uritelri(fil_uariexp:4) 

w r i t e 1 n ( f i 1 _ i.J a r ( e X p 1 i . . . t e x pn ) 

w r i t e 1 n ( e X p ) 

w ri te In ( expl ( . . . jexpn ) 

writeln 
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Semantics 

The procedure wr itelri(f,e) writes the value of the expression e to the textfile f, appends an 
end-of-line marker, and places the current position immediately after this marker. After execution, 
the file buffer f^ is undefined and eof (f) is t rue. You may write the value of e with the formatting 
conventions described for the procedure w rite. 

The call writ.elri(f,el en) is equivalent to 

w r i t e ( f • e 1 ) i 
writeif .e2) i 



w r i t e ( f ten) i 
u r i t e 1 n { f ) 

The call w r 1 1 e 1 n without the file or expression parameters effectively inserts an empty line in the 
standard file output. 
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Implementation Appendix 



Series 200 HP-UX 

This appendix describes the implementation-specific details of HP Pascal for the HP-UX operating 
system on the Series 200 Computers. 

The following topics are described in this appendix. 

• Compiler Options 

• Implementation Dependencies 

• Replacements for Pascal Extensions 

• System Programming Language Extensions 

• Special Use of RESET and REWRITE 

• Unbuffered Terminal Input 

• The HP-UX pc Command 

• Program Parameters and Program Arguments 

• Pascal Heap Managers for Series 200 

• Using Pascal with other Languages 

• Pascal Run-Time Error Handling 

• Error Messages 
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Compiler Options 

The pages in this section describe the compiler options (compiler directives) you may use with 
Pascal on Series 200 HP-UX systems. When specified, compiler options usually have a default 
action and restrictions on where they may appear. These restrictions are shown on every page 
below the option. 

The explanation of these restrictions is given below. 



Location 

Anywhere: 
At front: 

Not in body: 

Statement: 
Special: 



Restrictions on the Placement of Compiler Directives 

Restriction 

No restriction. 

Applies to entire source file; must appear before the first "token" in the source file 
(before PROGRAM, or before MODULE if compiling a list of modules). 

Applies to a whole procedure or function; can't appear between BEGIN and END. 
Good practice to put these options immediately before the word BEGIN, or the 
procedure heading. 

Can be applied on a statement-by-statement basis or to a group of statements, by 
enabling before and disabling after the statements of interest. 

As explained under the particular option. 



If a option appears in the interface (import or export) part of a module, it will have effect as the 
module is compiled. However, the option itself will not become part of the interface specification 
(export text) in the compiled module's object code and will have no effect in the implement section 
of the module being compiled. 
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ALIAS 

Default: External name = Procedure Name 
Location: Special, See Below 

This option causes a name, other than the name used in the Pascal procedure or function declara- 
tion, to be used by the loader. 



-.►($)-^ ( ALIAS ) -H^J^ _ 



Item 



external name 



string 



Description/Default 



Range Restrictions 



Entire declaration must 
fit on one line. 



Semantics 

The string parameter specifies the external name for the procedure in whose header the option 
appears. 

Example 

procedure talias 'charlie'* p (i: inteSer)) exterriali 

Within the program, calls use the name "p"; but the loader will link to a physical routine called 
"Charlie". 

The option must appear between the keywords PROCEDURE or FUNCTION and the first symbol 
following the semicolon ( ; ) denoting the end of the procedure or function declaration. 

The option may not appear in an export section. 
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ANSI 



Default: OFF 
Location: At Front 



This option selects whether an error message is to be emitted for use of any feature of HP Standard 
Pascal not contained in ANSI/ISO Standard Pascal. 



~vv~*K *^^' } — 1-*-(^ ON ^ — ItHJ)— *" 



K 



OFF 



Semantics 

"ANSI" is interpreted as "ANSI ON". 

ON causes error messages to be issued for use of any feature of HP Standard Pascal which is not 
part of ANSI/ISO Standard Pascal. 

OFF suppresses the error messages. 

Example 

fan si ori$ 
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CODE 



Default: ON 
Location: Not in Body 



This option is used to control whether a CODE file will be generated by the compiler. 



K 



OFF 



Semantics 

"CODE" is interpreted as "CODE ON". 

ON specifies that executable code will be emitted. 

Example 

*code off$ 
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CODE OFFSETS 



Default: OFF 
Location: Not in Body 



This option controls the inclusion of program counter offsets in the compiler listing. 

— ^$V-»-U;ODE-OFFSETs) [~*~( °** J V'*^^) ^ 



k: 



OFF 



Semantics 

"CODE_OFFSETS" is interpreted as "CODE_OFFSETS ON". 

ON specifies that line number-program counter pairs will be printed for each executable statement 
listed. This can be applied on a procedure-by-procedure basis. 
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DEBUG 



Default: OFF 
Location: Not in Body 



This option controls whether the code produced by the compiler contains the additional informa- 
tion necessary for reporting line number information with error messages. 

~*\9j—*~( DEBUG J T"*^ °** ) r"*V^J — *" 



K 



OFF 



Semantics 

"DEBUG" is interpreted as "DEBUG ON" 

"DEBUG ON" will cause instructions to be emitted, which assign the current line number to the 
system variable "asmJine", for the procedure bodies following it. These instructions are not 
stripped by the stripil) command of HP-UX. 

This option may be applied on a procedure-by-procedure basis. 

Example 

procedure b u iiv i 
war is i n t e S e r i 
$ d e b u S n $ 
b e 3 i ri 
t ♦ » 
e n d i 
*debus o:ff$ 
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FLOAT_HDW 



Default: OFF 
Location: Not in body 

This option enables and disables the use of floating-point hardware. 



(jD—t*® — " 




Semantics 

An optional floating-point hardware board is available for Series 200 Computers to increase the 
execution speed of floating-point math programs. 

A small overhead occurs on every procedure when this option is enabled. For maximum perform- 
ance, bracket calls to math-intensive procedures with $float on$ and *float off$. 

"FLOAT.HDW" is interpreted as "FLOAT_HDW ON" 

ON instructs the compiler to generate accesses to hardware for most floating-point operations. If the 
hardware does not exist when the program is executed, an error will result. 

OFF tells the compiler to generate calls to libraries for all floating-point operations. 

TEST causes the compiler to generate both hardware accesses and library calls. The compiler 
automatically includes code to test for the presence of floating-point hardware. At execution time, if 
the test succeeds, the hardware accesses are used, otherwise the library calls are used. 

The operations that use the hardware include: addition, subtraction, multiplication, division, nega- 
tion, and the sqr function. All other math functions call library routines. There are libraries that 
access the floating point hardware. Hardware can also be used by any operation that converts an 
integer to a real or longreal, converts a real to a longreal, or converts a longreal to a real. The 
hardware is not used by operations that convert reals or longreals into integers. 

Example 

$float test* 
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IF 



Default: Not Applicable 
Location: Anywhere 

This option allows conditional connpilation. 



^($ X~iOH exp° ea"on H ^}* ] ""^""^ K $Xii^vKfi-^ 



Item 


Description/Default 


Range Restrictions 


boolean expression 
conditional text 


source to be conditionally compiled 


may only contain 
compile time constants 



Semantics 

If the expression evaluates to FALSE, then text following the option is skipped up to the next END 
option. 

If the boolean evaluates to TRUE, then the text following the option is compiled normally. 
IF-END option blocks may not be nested. 

Example 

const fane/ = true! 

limit = 1 i 

size = 9 i 
» ♦ * 
$if fancy and ( ( si ze + 1 )< 1 imi t )$ 

... (# this will be skipped *) 
$ e n d $ 
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INCLUDE 



Default: Not Applicable 
Location: Anywhere 



This option allows text from another file to be included in the compilation process. 



-H®-<]^^^^^C^-CH^»}Ki)^K5^ 



Item 


Description/Default 


Range Restrictions 


file specifier 


string 


any valid file specifier 



Semantics 

The string parameter names a file which contains text to be included at the current position in the 
program. Included code may contain additional INCLUDE options. 

Example 

pros ram inc 1 us ive i 
$ i ri c 1 u d e ' / u s e r s / s t e m e / d e c 1 a r s ' $ 
$ i n c 1 u d e ' / u s e r s / s t e v e / b o d y ' $ 
e n d . 



LINENUM 

Default: Not Applicable 
Location: Anywhere 

This option allows the user to establish an arbitrary line number value. 
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—♦/$%-«-/ LINENUM j—*- line number — •-\$) — *~ 



Item 


Description/Default 


Range Restrictions 


line number 


integer numeric constant 


1 thru 65534 



Semantics 

The integer parameter becomes the current line number (for listing purposes and debugging 
purposes if $debug$ is enabled). 

Example 

Slirieriuiit 20000$ 
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LINES 

Default: 60 lines per page 
Location: Anywhere 

This option allows the user to specify the number of lines-per-page on the compiler listing. 2000000 
lines-per-page suppresses autopagination. 



~*aO~*A """^^^ y*" 


lines per 
page 


~<jy^ 




Item 






Description/Default 


Range Restrictions 


lines per page 




intege 


r numeric constant 


20 thru MAXINT 



Example 



* line 5 55$ 

$ line 5 2000000$ 



( * 5 u, p p r e s s a ii t o p a S i n a t ion* ; 
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LIST 



Default; ON to Std. output file 
Location: Anywhere 



This option controls whether or not a listing is being generated, and where it is being directed to. 



— (5h<;^i^7>-pH2H3^iIK^ 






Item 


Description/Default 


Range Restrictions 


file specifier 


string 


any valid file specifier 



Semantics 

"LIST" is interpreted as "LIST ON". 

LIST with a file specifier specifies that the file is to receive the compilation listing. 

LIST OFF suppresses listing. 

LIST ON resumes listing. No listing will be produced at all, regardless of this option, unless 
requested by the operator when the Compiler is invoked, (i.e. the "-L" option of the pc command 
is specified. I 

Example 

$ 1 i s t ■' / ij 5 e r 5 / s t e u e / K e e p 1 i s t ' $ 
$list off$ 
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OVFLCHECK 



Default: ON 

Location: Statement-by-statement 



This option gives the user some control over overflow checks on arithmetic operations. 

— ►-T $ V-^OVFLCHECKj r~*\ ON J 1"*^^/ *~ 



OFF 



Semantics 

"OVFLCHECK" is interpreted as "OVFLCHECK ON" 

ON specifies that overflow checks will be emitted for all in-line arithmetic operations. 

OFF does not suppress all checks; they will still be made for 32-bit integer DIV, MOD, and 
multiplication. 

Example 

$oi.)flchBcK off$ 
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PAGE 



Default: Not Applicable 
Location: Anywhere 



This option causes a formfeed to be sent to the listing file if compilation listing is enabled. 



Example 

$pase$ 
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PAGEWIDTH 



Default: 120 
Location: Anywhere 



This option allows the user to specify the width of the compilation listing. 



— ^SVWpagewidth)-*- '^pg''; 



characters 
' line 



Item 


Description/Default 


Range Restrictions 


characters per line 


integer numeric constant 


80 thru 132 



Semantics 

The integer paranneter specifies the number of characters in a printer line. 

Example 



*pa3ewidth BO* 
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PARTIALEVAL 



Default: OFF 

Location: Statement-by-statement 



— »-/$V*-{partial-eval) — j-*-^ ON ^ — r"*AV~~*" 



m; 



OFF 



Semantics 

"PARTIAL_EVAL" is interpreted as "PARTIALEVAL ON". 

ON suppresses the evaluation of the right operand of the AND operator when the left operand is 
FALSE. The right operand will not be evaluated for OR if the left operand is TRUE. 

OFF causes all operands in logical operations to be evaluated regardless of the condition of any 
other operands. 

Example 

*partial_eMal on* 

while (pOnil) and ( p' . count >0) do 
p : = p ■■■ 1 1 i ri K ; 
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RANGE 



Default: ON 

Location: Statement-by-statement 



This options enables and disables run-time-checks for range errors. 
— *-{V)— *-{^ RANGE J — [— ^ ON ^ — r"*KA) — *" 



K 



OFF 



Semantics 

"RANGE" is interpreted as "RANGE ON". 

ON specifies that run time checks will be emitted for an-ay and case indexing, subrange assignment, 
and pointer dereferencing. 

Example 

i/ar a: a r ray [1,, 10] of inteSeri i: inteSeri 

i := Hi 

$rariSe off$ 

a [ i ] : = i ( # i n 1.1 a 1 i d index not c a u 3 h t ! * ) 
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SAVE_CONST 

Default: ON 
Location: Anywhere 

This option controls whether the name of a structured constant may be used by other structured 
constants. 



— »-/$y-^^ SAVE-CONST^ p->-^ ON ^ I~*A?} *" 



OFF 



Semantics 

"SAVE_CONST" is interpreted as "SAVE_CONST ON". 

ON specifies that compile-time storage for the value of each structured constant will be retained for 
the scope of the constant's name (so that other structured constants may use the name). 

OFF specifies that storage will be deallocated after code is generated for the structured constant. 

Example 

$sai.ie_con5t off* 

type ary = array [1..100] of iiueseri 

const aeon = ary [345 (45691 t .ti.4 ]i 

(*bis constants take lots of compile-t line ineniory*) 
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SEARCH 



Default: Not Applicable 
Location: Anywhere 



This option is used to specify files to be used to satisfy IMPORT declarations. 



O 



^<i)-h5E^™)-~'-<DH]S-<D-'-<!>* 



Item 



file specifier 



Description/Default 



string 



Range Restrictions 



any valid file specifier 



Semantics 

SEARCH must be the last option in an option list! 

Each string specifies a file which may be used to satisfy IMPORT declarations. Files will be searched 
in the order given. The file, "/lib/libpc.a" is always searched last. A default maximum of 9 files may 
be listed. (See $SEARCH_SIZE ...$.) 

Specified files may be either "a. out" or archive (".a") format. 

Example 

* 5 e a r c h ' / u g e r s / s t e u e / f i r s t f i 1 e . a ' t ' / u s e r s / s t e m e / s e c o n d f 1 1 e , a ' $ 
import c III p 1 e X m a t h > p o 1 a r m a t h i 
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SEARCH_SIZE 

Default: 9 files 
Location: At front 

This option allows you to increase the number of external files you may SEARCH during a 
module's compilation. 



Item 


Description/Default 


Range Restrictions 


number of files 


integer numeric constant 


less than 32767 



Semantics 

When compiling a Pascal module, it is sometimes desirable to import another module from another 
file. To import a module from another file, the SEARCH option is used to identify the file. Up to 
nine SEARCH options may be given unless the SEARCH_S1ZE option is given. The SEARCH- 
SIZE option allows you to SEARCH up to 32 766 external files for imported modules. 

Example 

isea rch..s i ze 30$ 
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SYSPROG 

Default: System Programming Extensions not enabled 
Location: At Front 

This option makes available some language extensions which are useful in systems programming 
applications. See "System Programming Language Extensions" in this appendix. 



~*v^y*v SYS'*""'' y*v^ J — *' 



Example 

$sy5Pro3$ 

program m a c h i n e d e p e n d e n t i 
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TABLES 



Default: OFF 
Location: Not in Body 



This option turns on and off the listing of symbol tables. 



~*v ^y*v TABLES J — \~*^ °^ J — r'*v^y — *" 



MI 



OFF 



Semantics 

"TABLES" is interpreted as "TABLES ON" 

ON specifies that symbol table information will be printed following the listing of each procedure. 
This is useful for very low-level debugging. 

Example 

$tables$ 

procedure h a s a b u S ( m a r p : i n t e 3 s r ) i 

i.'ar 
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WARN 



Default: ON 
Location: At Front 



This option allows the user to suppress the generation of compiler warning messages. 



K 



OFF 



Semantics 

"WARN" is interpreted as "WARN ON" and compiler warnings will be issued. 

Example 

*uiarri off$ 
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Implementation Dependencies 

The following list of Pascal keywords have implementation dependencies in Series 200 HP-UX 
Pascal. 

Keyword Dependency 

append You cannot append to textfiles. The optional third parameter, the t in append(f,s,t), 

has no signifigence. 

ARRAY . . OF There is no limit on the number of elements in an ARRAY. 

close The following literals may be used as the optional string parameter in the close 

procedure. 

'LOCK ' or 'SAUE ': The system will save the file as a permanent file. 

'NORMAL', 'TEMP', or none: If the file is already permanent, it remains in the direc- 
tory. If the file is temporary, it is removed. 

' PURGE ': The system will remove the file. 

Directives The external directive allows Pascal to use externally defined code segments. 

dispose See the section on Pascal Heap Managers. 

external This directive may be used to indicate a procedure or function that is described 

externally to the program. See the section: Pascal and Other Languages. 

Heap Proce- The supported heap procedures are: new, marK, release, dispose. See the Heap 
dures Managers Section. 

1 n 3 r e a 1 The approximate range is: 

- 1.79769313486231L + 308 thru -2.22507385850720L-308, 

0, 

2.22507385850720L-308 thru 1.79769313486231L + 308 

mark See the section describing the Pascal Heap Manager 

max i n t The value of maxint is: 2147483647 

III a K p 5 This function always returns m a x i n t . (See 1 a s t p o s ) . 

m i n i n t The value of minint is: - 2 147483648 

Modules Module identifiers are restricted to 12 characters. 

real The approximate range is: 

-3.402823E + 38thru -1.175494E-38, 

0, 

1. 175494E - 38 thru 3.402823E + 38 

release Files in the heap will not be closed by release. 

rewrite The optional third parameter, the t in rewrite(f,s,t), is used for buffered or unbuf- 

fered input. See the Unbuffered Terminal Input section for details. 
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Strings The longest possible string contains 255 characters. 

strread The return parameter (indicating the next character to be used with the next 

St r read operation) must be an integer (an integer subrange is not allowed). 

St rw rite The return parameter (indicating the next position to be used with the next 

5t rwrite operation) must be an integer (an integer subrange is not allowed). 

text Appending to a text file is not allowed. 

WITH When f is a function call, WITH f DO is not allowed. 

Special Compiler Warnings 

The following warnings should never be seen. 

warninS iline nuiriber} symbol defined already: isYMbol name} 
warning (.line riuii>ber'> symbol not found: isyinbol naine> 

The appearance of these warnings usually indicates a problem with your compiler. The program 
may not run correctly. If you suspect this to be true, contact your Hewlett-Packard Service En- 
gineer. 
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Replacements for Pascal Extensions 

Over the years, various implementations of Pascal have added extentions to simplify certain opera- 
tions. One of the more common implementations, the UCSD implementation, added several string 
functions, byte functions, and 10 intrinsics. To simplify the conversion of UCSD Pascal programs to 
HP Pascal programs for the Series 200 HP-UX operating system, the following table lists replace- 
ments for many of the UCSD extensions. 

Replacement 



Extension 


function length 


function pes 


function concat 


function copy 


function delete 


function insert 


function scan 


function moveleft 


function moveright 


function blockread 


function blockwrite 



Use strlen and setstrlen 

Use strpos 

{NOTE: parameters are reversed from pos} 

Use infix " + " operator 

Use str 

Use strdelete 

Use strinsert 

Recede using a FOR loop 

Recode using a FOR loop 

Recede using a FOR loop 

Recode to use file of buf512 

(where: buf512 = PACKED ARRAY[0.. 511] of char) 

Recode to use file of buf512 

(where: buf512 = PACKED ARRAY[0..511] of char) 



Other Replacements 

Use the following replacements when converting Pascal programs for the Series 200 HP-UX 
operating system. 



PRINTER: 

CONSOLE: 
SYSTERM: 



lORESULT 



Use rewrite(f t'/deu/lp') i Note that use of /deu/lp may be restricted by the 
system. See your system administrator or the System Administrators Manual for 
more information. 

Use input 

Add the following variable declaration: 

keyboard : t, e x t i 

Then add these procedures to the beginning of the main program: 

r e s e t ( k e y b a r d t ' ' ) ; 



r e s e t ( K e y b a r d 



t 'unbuf f e red ' ) j 



Convert to access the variable IORESULT['asm_ioresult'] 
See the section: System Programming Language Extensions. 



1 "UCSD Pascal" is a trademark of the Regents of the University of California. 
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System Programming Language Extensions 

Seven extensions to HP Pascal have been provided to support machine-dependent programming 
and give users better control over (or access to) the hardware. 

1. Error Trapping and Simulation 

2. Absolute Addressing of Variables 

3. Relaxed Typechecking of VAR Parameters 

4. The ANYPTR Type 

5. Procedure Variables and the Standard Procedure CALL 

6. Determining the Absolute Address of a Variable 

7. Determining the Size of Variables and Types 

These extensions may be used in any compilation which includes the *SYSPROG 0N$ option at the 
beginning of the text. 

The extensions may not be supported by other HP Pascal implementations. The Compiler displays 
a warning message at the end of compilation when they are enabled. 

Error Trapping and Simulation 

The TRY-RECOVER statement and the standard function ESCAPECODE have been added to 
allow programmatic trapping of errors. The standard procedure ESCAPE has been added to allow 
the generation of soft (simulated) errors. 

t ry 

< statement) ! 

< s t a t e tit e n t > i 

<statewerit> 
r e c u e r 

<state(iierit > 

When TRY is executed, certain information about the state of the program is recorded in a marker 
called the recover-block, which is pushed on the program's stack. The recover-block includes the 
location of the corresponding RECOVER statement, the height of the program stack, and the 
location of the previous recover-block if one is active. The address of the recover-block is saved, 
then the statements following TRY are executed in sequence. If none of them causes an error, the 
RECOVER is reached, its statement is skipped, and the recover-block is popped off the stack. 

But if an error occurs, the stack is restored to the state indicated by the most recent recover-block. 
Files are closed, and other cleanup takes place during this process. If the TRY was itself nested 
within another one, or within procedures called while a TRY was active, then the outermost 
recover-block becomes the active one. Then the statement following RECOVER is executed. Thus, 
the nesting of TRYs is dynamic, according to calling sequence, not statically structured like nonlocal 
goto's which can only reach labels declared in containing scopes. 
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The recovei-y process does not "undo" the computational effects of statements executed between 
TRY and the error. The error simply aborts the computation, and the program continues with the 
RECOVER statement. 

When an error has been caught, the function ESCAPECODE can be called to get the number of 
the error. ESCAPECODE has no parameters. It returns an integer error number selected from the 
error code table. 

Escape codes generated by the system are always negative. The programmer can simulate errors 
by calling the standard procedure ESCAPECn), which sets the error code to n and starts the error 
sequence. By convention, programmed errors have numbers greater than zero. If an ESCAPE is 
not caught by a recover-block within the program, it will be reported as an error by the Operating 
System. Negative values are reported as standard system error messages, and positive values are 
reported as a halt code value. Note that HALT ( n ) is exactly the same as escape ( n ) . 

TRY-RECOVER statements are usually structured in the following fashion: 

t r>' 

» I t ♦ 
r e c u e r 

if escapecode = (whateuer you want to catch) 
then 
b e J i n 

{recovery sequence} 
e n d 
else 

escapeCescapecode) ! 

This has the effect of ensuring that errors you don't want to handle get passed on out to the next 
recover-block, and eventually to the system. All programs which are executed are first surrounded 
by the Operating System with a try-recover sequence. The recovery action for the system is to 
display an error message. 

Absolute Addressing of Variables 

A variable may be declared as located at an absolute or symbolically named address. For example, 

uar ioport [416000]: chari 

assemblys'/fflhol [ ' asitt_exte rnal-name ' ] ! inteSe r! 

Each variable named in a declaration may be followed by a bracketed address specifier. An integer 
constant specifier gives the absolute address of the variable. A quoted string literal gives the name of 
a load-time symbol which will be taken as the location of the variable; such a symbol must be global 
in assembly-language which will be loaded with the program. 

Absolute addressing with integer constants has little meaning to "virtual memory" operating sys- 
tems such as HP-UX. However, symbolic addressing can be very useful, as demonstrated in the 
next section. 
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Determining lO Errors 

When errors are trapped and handled programmatically, by the TRY. .. RECOVER mechanism, it is 
often useful to know the exact cause of the error (so that the appropriate response can be taken). 
Since these errors occur "outside" the program, a method of accessing the error-code from within 
the program is needed. By adding the following declaration to your program, the last 10 error can 
be accessed. 

UAR 

lORESULTC 'as(ti_i.o result ' ] : inteSeri 

If you include this declaration within your program, you can test for some errors. For example, 
suppose you try to reset a file (inside a TRY. .. RECOVER block). When you check the standard 
function ESCAPECODE, it returns - 10 (indicating an 10 error has occurred). You can now check 
lORESULT and take the appropriate action. 

The list of lORESULT values is included at the end of this appendix. 

This feature may not be supported on future implementations. 

Relaxed Typechecking of VAR Parameters 

The ANYVAR parameter specifier in a function or procedure heading relaxes type compatibility 
checking when the routine is called. This is sometimes useful to allow libraries to act on a general 
class of objects. For instance an I/O routine may be able to enter or output an array of arbitrary size. 

type 

buffer = array [ . . m a x i n t ] of c h a r i 
"a r 

al: array [2. .50] of chari 

a2: array [0. ,99] of chari 

procedure outPut_hpi b ( aiv/uar ary : buf f er ! lobound th i bound : in teie r) i 



autput_hpib(al »2 t50) i 
Qutput_hpib(a2 .0 (99) i 

ANYVAR parameters are passed by reference, not by value; that is, the address of the variable is 
passed. Within the procedure, the variable is treated as being of the type specified in the heading. 

This can be very dangerous! For instance, if an array of 10 elements is passed as an ANYVAR 
parameter which was declared to be an array of 100 elements, an error will very likely occur. The 
called routine has no way to know what you actually passed, except perhaps by means of other 
parameters as in the example above. ANYVAR should only be used when it's absolutely required, 
since it defeats the Compiler's normal type safety rules. 

Programs calling routines with ANYVAR parameters should be very thoroughly debugged. 
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The ANYPTR Type 

Another way to defeat type checking is with the non-standard type ANYPTR. This is a pointer type 
which is assignment-compatible with all other pointers, just like the constant NIL. However, vari- 
ables of type ANYPTR are not bound to a base type, so they can't be dereferenced. They may only 
be assigned or compared to other pointers. Passing as a value parameter is a form of assignment. 

type 

p 1 = ■■■ i ri t e 3 e r i 
p2 = " record 

fltfZ: real! 
e n d i 
yar 

1.1 1 I u 1 a : p 1 ! M 2 : p 2 i 
anvv: arivptr! 
which : ( f/pel itvpe2) i 
b e S i n 

n e w ( V 1 ) i n e w ( y 2 ) i 

i t i 

if I . . then 

besin anyy := yli which := t'/pel end 
else 

be Sin anyy := y2i which := type2 end! 

f t t 

if which = t y p e 1 then 
b e S i n 

yla := anyyi 
V la'' : = yla'' + 1 i 
end) 
e n d i 

This can be very dangerous! The Compiler has no way to know if ANYPTR tricks were used to put 
a value into a normal pointer. If a pointer type which is bound to a small object has its value tricked 
into a pointer bound to a large object, subsequent assignment statements which dereference the 
tricked pointer may destroy the contents of adjacent memory locations. 

Programs using this feature must be very thoroughly debugged. 

Procedure Variables and the Standard Procedure CALL 

Sometimes it is desirable to store in a variable the name of a procedure, and then later to call that 
procedure. 

A variable of this sort is called a procedure variable. The "type" of a procedure variable is a 
description of the parameter list it requires. That is, a procedure variable is bound to a particular 
procedure heading. 

type procvar = procedure (ap:inte3er); 
V a r p : p r o c y a r i 

procedure q ( op: inteie r ) i {identically structured parameter list} 



p := i! {p Sets the name of "li in effect p points to q} 

call(pii)i {name of prcc yariablei then appropriate parameter list) 
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A procedure variable is "called" by the standard procedure CALL, which takes the procedure 
variable as its first parameter, and a further list of parameters just as they would be passed to a real 
procedure having the corresponding specification. 

It is not possible to create a function variable, that is, a variable which can hold the name of a 
function. 

Don't assign the name of an inner (non-global) procedure to a procedure variable which isn't 
declared in the same block as the procedure being assigned. Such a variable might be called later, 
after exiting the scope in which the procedure was declared. The appropriate static link would be 
missing, yielding unpredictable results. 

Determining the Absolute Address of a Variable 

The ADDR function returns the address of a variable in memory as a value of type ANYPTR. It 
accepts, as an optional second parameter, an integer "offset" expression which will be added to the 
address; this has the effect of pointing "offset" bytes away from where the variable begins in 
memory. 

p := a d d r ( u a r i a b 1 e ) i 

p : = a d d r ( u a r i a b 1 e 1 f f s e t ) i 

ADDR is primarily used for building or scanning data structures whose shapes are defined at 
run-time rather than by normal Pascal declarations. 

The ADDR function is very dangerous! It has the same dangers described above for ANYPTRs, in 
addition to some of its own. Use of the "offset" can produce a pointer to almost anywhere. This can 
be dangerous to the integrity of the task's memory. 

Never use ADDR to create pointers to the local variables of a procedure or function. When the 
routine exits, storage for local variables is recovered thus making the value returned by ADDR 
useless. 

Programs using this feature must be very carefully debugged. 

Determining the Size of Variables and Types 

The size (in bytes) of a type or variable can be determined by the SIZEOF function. 

n : = s i z e f ( u a r i a b 1 e ) i 
ri : = sizeof ( typenaiiie ) i 

If the variable or type is a record with variants, an optional list of tagfield constants may follow the 
parameter. This is similar to the procedure new (although new implies that space is to come from the 
heap). 

ri : = s 1 z e f ( u a r r e c 1 1 r u e » b 1 Li e ) i 

SIZEOF is not really a function, although it looks like one; it is actually a form of compile-time 
constant. 
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Memory Allocation for Pascal Variables 

Here is a list of storage allocations for common Pascal data types. 

Type Allocation 

boolean: One byte, 0-false 1-true 

character: One byte, ASCII character values thru 255 

Enumerated scalar: Two bytes, unsigned. 

intese r: Four bytes signed, -2147483648 to 2147483647 

1 ri 3 r e a 1 : Eight bytes, approximate range is: 

±1.1797693134862315L + 308 thru ±2.225073858507202L-308 

Pointer: Four bytes containing 24-bit logical address. 

Procedure: Eight bytes containing address and static nesting information. 

real: Four bytes, approximate range is: 

± 3. 40823E + 38 thru ±1.1 75494E - 38 

SET: Two bytes of length plus multiples of 2 bytes to contain possible elements 

which require 1 bit each to a maximum of 256 elements. 

St r i n s: One byte of length field plus up to 255 bytes 

Sub ran se: Two bytes if maximum and minimum values are in [ - 32768.. 32767]. 
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Special use of RESET and REWRITE 

It is sometimes desirable to create an HP-UX file or pipe from a language other than Pascal, and 
then call a Pascal routine to continue reading or writing without having to close and then re-open 
the file. There is a special instance of RESET and REWRITE which make this possible. The first 
parameter to RESET and REWRITE is the name of the file. The second parameter is the name of 
an external file. To connect a file or pipe which has been established outside the Pascal program to 
the file variable, simply put the HP-UX file descriptor in a quoted string as the second parameter. 
For example: 

PROGRAM Pi 

UAR F : text; 

BEGIN 

RESET (F.'B') i 

NRITE(F»'ABC') ; 

END. 

This program will connect the the file variable F with the HP-UX file descriptor 6. The string must 
contain only the file descriptor; if leading or trailing blanks are present, the string will be interpreted 
as a file name. No file positioning is done; the file is not rewound. If the file descriptor is associated 
with a regular file, current position is determined and POSITION(F) is set to this value. 

If it is necessary to rewind one of these special files from Pascal, this can be accomplished in either 
of two ways: 

PROGRAM Pi PROGRAM Pi 

I'AR F : TEXT! UAR F : TEXT! 

BEGIN BEGIN 

QPEN(F»'B')! RESEKFt'G') i 

SEEK(F.l)i RESET(F)i 

END. END. 

When attempting to close one of these special HP-UX files, it is not [possible to purge it. Even if the 
"purge" option is specified by CLOSE, the file will be saved. 

This feature works for OPEN and APPEND, as well. 
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Unbuffered Terminal Input 

Normally, terminal input is processed in units of lines. A line is delimited by a new-line (ASCII LF) 
character' an end-of-file (ASCII EOF) character, or an end-of-line character. This means that a 
program attempting to read will be suspended until an entire line has been typed. Also, no matter 
how many characters are requested in the read call, at most one line will be returned. It is not, 
however, necessary to read a whole line at once; any number of characters may be requested in a 
read, even one, without losing infonnation. By default, input from the terminal will behave in this 
way; that is, it will be buffered into lines. 

The HP Pascal Standard requires that input from the standard input device be unbuffered. In order 
to override the system default of buffered input, the user can add the following statement to his 
program: 

REWRITE( INPUT »" .'UNBUFFERED') i 

In this mode terminal input is processed in units of bytes. This means that a program attempting to 
read will receive each byte as it is typed. A line is delimited by a new-line (ASCII LF) character. The 
end-of-file (ASCII EOF) character behaves the same as if end-of-file was reached while reading 
from a regular file. To restore the state to buffered input the user can add the following statement to 
his program: 

REWRITE( INPUT.' ' .'BUFFERED') ; 
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The pc Command for Series 200 HP-UX 

The pc command on the Series 200 HP-UX system is a program (/bin/pc) that coordinates the 
execution of the Pascal compiler (/usr/lib/pascomp), the ranlib command, and the linker-loader 
(/bin/id) of the HP-UX system. 

When invoked, pc parses its arguments. If one of its arguments is a file with a ".p" extension, it 
proceeds to call the Pascal compiler. The compiler creates an archive, or ".a" file, which contains a 
".o" file for each module (See The Load Format). It is an archive file, even if there is only one 
module or main program in the source file. Assuming the compiler was called, the pc program then 
calls the archive utility, ranlib, which causes a directory of ".o" components to be prepended onto 
the ".a" file. 

If the compilation is successful, ranlib is always called, even when the "-c" option is invoked to 
suppress linking and loading. If ranlib succeeds. Id (the link editor) is called, which links the ".a" file 
with the appropriate library files (/lib/crtO.o, /lib/libpc.a. /lib/libc.a), and any other files which were 
given as arguments to the pc command and are also needed to satisfy unresolved references. 

Unless the "-o" option was invoked to cause the final output file to be a particular name, the 
resulting file is named "a.out", and is ready to run. No matter the pathname of the Pascal source 
file, the a.out file is left in the current directory from whence pc was invoked. If multiple ".p" files 
are given, the resulting ".a" files will remain in the current directory. If only one ".p" file was given 
the corresponding ".a" file will be purged, leaving only the a.out file. 

See also pc(l) in the HP-UX Reference manual. 

Using the pc Command 

For Series 200 HP-UX, the pc command is like the cc command. In other words, invoking the 
Pascal language compiler is very similar to invoking the C language compiler. Notable exceptions 
are: 

• It supports mostly different and fewer options 

• It will not accept source files of another language besides Pascal. 

• If the -c option is used to suppress linking and loading, a ".a" file is produced, instead of a " o" 
file. 

The pc command can be used to compile Pascal source files, or to link any ".a" or ".o" files that 
require loading with Pascal run-time support. The pc command will accept any combination or 
number of ".p", ".a", and ".o" files. Usually a compile will go all the way to an "a.out" file, which 
is linked and loaded. 
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The Load Format 

Here are some things to know about the load format of Pascal programs. 

The Series 200 HP-UX HP Standard Pascal compiler (/usr/iib/pascomp) produces code that is 
formatted into archive files. Each module in the source causes a ".o" file to be generated, which is 
then collected with all ".o" files of a single compilation (a compilation of a single ".p" file), and 
archived into a ".a" file. Information on archive files and "a. out" format files can be found in the 
HP-UX manual. 

This arrangement permits mixing and matching of object code modules for different Pascal source 
"modules", using the ar command. The name of each ".o" file is taken from the module name in 
the source. For purposes of creating this ".o" file, the name can be no longer than twelve characters 
in length. The compiler treats the main program as a module also. If the name of the program is 
longer than 12 chars (which is allowed by the compiler), the name is truncated to 12 before being 
associated with the ".o" file. 

All external symbols (module entry points, exported procedures, global data areas, external proce- 
dures, aliased names) appear in the link editor symbol table. For user programs, different types of 
symbols are created by different conventions, and are shown in the following table: 

Symbol type Construction 

Global data area (tiiodule nairie) 

exported procedure -(Module name >-.< p roc riawe? 

module entry points --(friodule riafTie>-<friodule rianie)- 

aliased procedure name -(aliased na m e > 

structured constants (Module naftie>-< const ant nan\e> 

aliased m a r 1 a b 1 e s (aliased name )■ 

external procedure 

(not aliased) --(proc nai!ie> 

main program entry point .main and 

_ <proi raiiinairie >_ -(proiramri airie)- 

Separate Compilation 

The $SEARCH ...$ option must be given arguments that are filenames suffixed with ".a" or ".o", 
which are files that are results of a compilation by this compiler. The $SEARCH ...$ option looks for 
".o" files within the ".a" files. If you desire to combine several ".a" files into one (so fewer files 
have to be searched) you must use the ar command to extract the ".o" files, and then recombine 
them into another ".a" file. 



Note 

The ar command will archive anything you tell it to, even ".a" files. The 
compiler is not guaranteed to find ".o" files in a ".a" file that is so 
constructed. 
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Loading and linking separately compiled ".a" files can be tricky. The loader will not load from an 
archive file unless entry points defined in it have been previously entered into the link editor symbol 
table as undefined. This means that in linking several ".a" files derived from Pascal source, the file 
with the unresolved reference must be given to the loader before the file with the definition. 

An example can be seen below. Assume that the following three source files have been compiled 
separately, with the "-c" option, to give files FiLEl .a, FlLE2.a, and FiLE3,a. 

{ FILEl.p } 
(II d Li 1 e n e \ 
export procedure printinessli 

i (ii p 1 e III e ri t 

procedure p r i n t m e s s 1 ! 
b e 3 i n 

w r i t e 1 n ( ' ill e 5 s a 3 e 1 ' ) ! 
e n d i 

e ri d I 

{ FILE2.P > 
III d u 1 e two! 
export procedure print in essZi 

1 III p 1 e III e n t 

procedure p r i n t in e s s 2 i 
h e 3 i n 

w r i t e 1 n ( ' III e s s a 3 e 2 ' ) i 
e ri d i 

E n d . 

i FILE3,p > 

♦ search 'FILEl , a ' , 'FILE2. a '* 

pro 3 ram tes t ( out put ) i 

import n e ) t w i 

b e 3 i ri 

p r i n t m e 5 s 1 i 

p r i n t III e 5 s 2 i 
end. 
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Now load them with "pc fileei-3] .a". The following message results: 

Id: Undefined external - 
two 
one 

_ t w _ t w 
_ n e _ n e 
_one_printiiiessl 
_ t w _ p r i n t III e s 5 2 

The undefined symbols were generated by /cf because of FILE3 . a, which was loaded last. There are 
four workarounds for this problem, each of which has its uses. 

1. The -u option 

The -u option of the loader causes the symbol that is its argument to be entered as 
undefined, thus forcing the loading of the code that is associated with the symbol. For the 
above example, 

PC -u two -1.1 one -u _two_two -u _one_one -u .one-Printmessl 

-u _two_print(ne5s2 FILE[l-33,a causes successful linking and loading. 

2. Always compile source 

The pc command has been designed to enter all module entry points with the - u option, 
only for the ".a" files it creates with that invocation. When it is practical, this is the easiest 
method. For instance, "pc fileci- 3].p" works fine. You can verify that it works by using 
the - V option of pc to see the linker run string. 

3. Order of linking 

You can link ".a" files in a particular order, "pc FlLE3.a FiLEl.a FiLEZ.a" would work. 
Note that the corresponding source files cannot be compiled in that order. 

4. Extract .o files 

Using the ar command, all ".o" files may be extracted and then loaded as they are. 
"pc one.o two.o lest . o" will load successfully. 



274 HP-UX 



Program Parameters 

It is often desirable to pass the name of one or more files to a Pascal program. This can be 
accomplished by the use of "program parameters". On Series 200 HP-UX Pascal, these para- 
meters must be of type file. The parameters are specified in the program heading in much the 
same way that i n p u t and o u t p u. t are specified. 

For example, this program has one program parameter named READFILE. 

PROGRAM file_exaiiiple( input ) output i READFILE ); 
UAR 

readf i le : text i 
BEGIN 

reset{ read file); 



r e a d ( r e a d f i 1 e f , . , > ; 

t 

clo5e( read file) i 
END. 

The name of the physical file to be used by the program parameter is passed by including it as an 
argument when executing the program. For example, 

a. out <file name> 

Where <file name> is the name of a physical file. 

Multiple file names can be passed by specifying multiple program parameters and providing the 
names of the files at the time of execution. Each parameter takes one of the specified files. 

In the event that no file name is specified for a program parameter, a file will be created. The file 
name will be the same as the identifier used as the program parameter (the file name will appear in 
all uppercase letters regardless of the letter case of the identifier). 

Program Arguments 

A more traditional HP-UX operating system approach to passing arguments to a program is 
supported by using routines exported from module ARC 

The ARG module exports several functions. The ARGC function returns a count of the number of 
arguments in the command line. The ARGV function returns a pointer to an array of pointers to the 
arguments in the command line. The ARGN function returns any particular argument converted to 
a Pascal string. In addition, a function with similar purpose to ARGN (PAS_PARAMETERS) is 
provided for compatibility with Series 500 HP-UX Pascal. 



HP-UX 275 



The "arguments" module (listed below) may be imported by your program to allow programmatic 
access to any arguments specified in the command line. Your program does not require a 
*SEARCH . , .$ directive to access this module, because it is included in libpc.a, which is searched 
automatically. 

tSYSPROG (RANGE OFF tOyPLCHECK DFF$ 
module a r S i 

expo rt 

type 

ars_5triri3255 = 5trinS[255] i 
arStype = packed array C 1 . .max iiU] of char! 
a r 3 a r r a y = a r r a y [ . . m a x i n t ] of ''' a r 3 1 y p e ! 
arSarrayptr = "arSarrayi 

function arsu! arSarrayptri 

function arSc! inteieri 

function ar3n(n: integer): arS.st rin3255 i 

function pas-Paramete rs (n ; inteseri anyyar p: aritypei 1: integer): inteseri 

i (rt p 1 e III B n t 

Mar 

a r S c _ u a 1 u e C ' _ a r S c _ u a 1 u e ' ] : i n t e 3 e r i 
arSU-ualueE '_ar3u_Malue ' ] : arsarrayptri 

const 

Malue_ran3e_e rro r = -8! 

function ar3u: ariarrayptri 
b e i i n 

arSv := arSU-ualue i 
end i 

function arSc: inteseri 
b e 3 i n 

arse : = a r 3 c _ y a 1 u e i 
e n d i 

function ar3n(n: inteSer): ar3_s t rin 3255 i 
var 

s: ar3_st rin3255 i 

i: 0..25Bi 
b e 3 i n 
if ( n > = a r 3 c _ u a 1 u e ) or ( n < ) then 

escape ( 1,1 alue_ran3e_error) i 
setst rlen(s t255) i 
i := n 
while ar3u_i.)alue" [n] ■■■ [ i] <> chr(O) do 

b e 3 i n 

5 [ i ] : = a r 3 u _ u a 1 u e ■■ [ n ] ■■■ [ i ] i 

i != i + 1 ; 

e n d i 
setst rlen { s ti-1 ) i 
ar3n : = si 
end i 
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function pas_paraiiiete rs ( n : inteSeri anyyar p: arStvpe! 1: integer): integer! 
Ma r 

i : i n t e 3 e r i 
b e 3 i n 
if ( n > = a r 3 c _ V a 1 u e ) or ( n < ) then 

pas_para meters := -1 
else 
b e 3 i n 
1 := 1 ; 

while { a rSM-ualue ■■■ [n ] '■ [ i ] <> chr(O)) and (i <= 1) do 
b e 3 i n 

p [ i ] : = a r 3 u _ 1.1 a 1 Li e ■■ [ n ] ■' [ i ] ; 
i := i + 1 i 
e n d i 
pas_para meters := i-li 
while i < = 1 do 
b e 3 i n 

p[i] != ' ' i 
i := i + 1 i 
e n d i 
e n d i 
end! {pas_pa ramete rs } 

e n d 1 

Progrgmming Example 

The following example demonstrates the use of the ARG module. 

PROGRAM ar3_de(i)o ( input (OutPut ) ; 

1.1 A R 

f : text i 

line: 5trin3[255]; 

f name : st rin3[B0] i 

IMPORT arSi 

BEGIN 

IF ar3c > 1 THEN 
BEGIN 

f n a m e : = a r 3 n ( 1 ) i 
reset(f if name) i 
WHILE NOT eof(f) DO 
BEGIN 

readln ( f tl ine ) i 
w r i t e 1 n ( 1 i n e ) i 

end; 
end; 

END. 

When ar3c indicates an argument has been passed, the program assigns the first argument to a 
filename. The program then resets the file and lists its contents. 

You can test the program with the following command line. 

a . u t a r 3 d e m . p 

The contents of the file will be listed to the screen. 
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Scries 200 HP-UX Pascal Heap Managers 

The "heap" is the area of memory from which so-called dynamic variables are allocated by the 
standard procedure NEW. When a process begins, it has available one area of memory for dynamic 
data. The Pascal heap access routines (NEW, DISPOSE, MARK, and RELEASE) must share this 
area of memory with any other memory allocation package (MALLOC) called from the same 
process. 

Conceptually the Pascal heap routines NEW, MARK and RELEASE operate in a purely stack-like 
fashion. When the program finishes with all the variables above a MARK, a RELEASE is called to 
move the top of the heap (the next available space) back to the value saved by MARK. 

MALLOC does not allocate memory in a true stack fashion. Instead, it allocates the first sufficiently 
large contiguous reach of free space found in a circular search from the last block allocated or freed. 
It is possible that a memory allocation could be performed from MALLOC after a MARK is done, 
yet still have an address which is less than the mark pointer. In this situation, RELEASE would not 
be able to free this memory. The opposite problem arises when a memory allocation performed 
from MALLOC before a MARK has a pointer value which is greater than the mark pointer. Here 
RELEASE would free memory which was allocated before the heap was marked, and may destroy 
valid data. 

Pascal now provides two distinct heap managers. The first is simpler, faster, and requires less 
memory. The second allows RELEASE and MALLOC to be called from the same process. 

HEAPl 

Version I does not allow RELEASE to be executed after any MALLOC has been done by the 
process. Memory which has been allocated to the Pascal heap manager can be returned to the 
Series 200 HP-UX memory manager by RELEASE, and can then be allocated to any other heap 
manager (i.e. MALLOC). 

NEW(P) allocates exactly enough space for a new dynamic variable, and returns the address of the 
newly-created dynamic variable in P. This space can be allocated from the Pascal free list, or from 
memory which has never been allocated in this process. The space cannot be allocated from the 
free lists of other memory allocation packages. 

DISPOSE(P) indicates that the space used by the variable P'^ is no longer needed, and can 
therefore be used when dynamic variables are to be created. This space is returned to the Pascal 
free list, and the pointer P is set to nil. 

MARK(P) causes the first free address in the heap to be assigned to P. The next execution of NEW 
will allocate memory which begins at the address contained in P. 

RELEASE(P) can be done only after a MARK(P) has assigned an address to P. This restores the 
heap to its state at the moment the statement MARK(P) was executed. All dynamic variables 
created after the MARK statement are effectively destroyed by RELEASE, and the memory space 
that they used is freed for new dynamic variables. 
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HEAP2 



Version II permits a process to do any combination of allocates and frees by any of the memory 
managers. This version performs slower for all heap operations (significantly slower to do a RE- 
LEASE), and it requires more space. Once memory has been allocated to the Pascal heap mana- 
ger, this memory can only be reused by Pascal. The memory is not returned to the Series 200 
HP-UX memory manager until the process terminates. 

NEW(P) allocates an extra twelve bytes for a new dynamic variable. The first four bytes will contain 
a forward pointer in a linked list of all currently allocated segments. The next four bytes contain a 
backward pointer to the most recently allocated memory segment. The last four bytes contain the 
word size of the current segment. This space can be allocated from the Pascal free list, or from 
memory which has never been allocated in this process. The space cannot be allocated from the 
free lists of other memory allocation packages. The address of the newly-created dynamic variable 
is returned in P. 

DISPOSE(P) indicates that the space used by the variable P'^ is no longer needed, and can 
therefore be used when dynamic variables are to be created. This space is returned to the Pascal 
free list along with the extra twelve bytes which were allocated by NEW(P). The pointer P is set to 
nil. 

MARK(P) allocates twelve bytes to put a marker into the list of all currently allocated segments. The 
first four bytes will contain a forward pointer in this linked list. The next four bytes contain a 
backward pointer to the most recently allocated memory segment. The last four bytes contain the 
word size of the current segment. This space can be allocated from the Pascal free list, or from 
memory which has never been allocated in this process. The space cannot be allocated from the 
free lists of other memory allocation packages. The address of the newly-created marker is returned 
in P. 

The next execution of NEW will NOT allocate memory which begins at the address contained in P. 

RELEASE(P) can be done only after a MARK(P) has created a marker in the list of allocated 
segments and assigned an address to P. This restores the heap to its state at the moment the 
statement MARK(P) was executed. It begins with the marker and disposes of all segments following 
it in the list of allocated segments. All dynamic variables created after the MARK statement are 
effectively destroyed by RELEASE, and the memory space that they used placed in the Pascal free 
list. RELEASE will only free memory which has been allocated by NEW and MARK; it does not 
affect memory which was allocated by any other memory allocation package. 
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Pitfalls 

Pascal standards place certain restrictions on heap operations. You may be able to write a program 
which let you "get away with" ignoring the following restrictions using Version I, whereas Version II 
will produce unpredictable results. 

• The pointer variable passed to RELEASE must have been generated only by a ^4ARK. 

• It is not permissible to RELEASE a pointer which was returned by NEW. 

• Pointer variables returned by NEW and MARK can be compared only for equality or inequal- 
ity. The result of comparing these pointers in any other relation is undefined. 

Deciding which Heap Manager to Use 

If you have a stand-alone Pascal program which does not call any library routines, then you should 
use Version I. You will have to use Version II if your program calls both MALLOC and RELEASE. 
You may not be able to tell whether both are called (either may be called from a library routine). In 
this case, you should try using Version I first. If you ever get 

ERROR -31:Call5 to RELEASE and MALLOC are incompatible. 

you should then use Version II. 

Specifying the Heap Manager 

Version I is automatically included with the Pascal run time support, whether you use the pc 
command or compile in another language and link /iib/libpc.a. If you decide to use Version II, you 
must specify this explicitly, by giving a - 1 option: 

PC pros.p -1 heap2 



or 



PC -c pros . p 

cc cpros.c pros. a -1 heap2 /lib/lihpc.a 



If heap2 
/lib/libpc, 


and /Iib/libpc.a 
.a. 


are 


Note 

both specified. 


heap2 


MUST precede 
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Pascal and Other Languages 

Series 200 HP-UX Pascal can communicate with other languages on the system. Simple data types, 
like integers, longreals, and characters are the same for Pascal, C, and Fortran. Therefore, these 
simple types can be passed to routines written in other languages. Strings and other complex data 
types cannot be passed between languages, unless great care is taken to construct types that each 
language can understand and the data types are passed by reference. 

Calling Other Languages from Pascal 

An external declaration is required to call other languages (including Series 200 HP-UX system 
calls) from Pascal. Like other compilers on this HP-UX system, this compiler prepends an under- 
score ("_") on most external symbols (see the previous section: The Load Format). If the external 
name is the same as the one you are going to use in Pascal, then no $al i as . . . $ is required. If you 
want to use a different name, then you must also use Dallas "_<proc nairie>"i in the procedure 
heading, prepending an underscore for C, FORTRAN, and Pascal names. Since the assembler 
does not prepend underscores on symbol names, use one in a *al i as ... $ option only if it actually 
appears in the source. 

A program containing an external declaration requires an EXTERNAL directive. The EXTERNAL 
directive is similar in construction to the FORWARD directive. 

PROCEDURE elsewhered: inteSeri b : boolean); EXTERNAL! 

PROCEDURE $alias '_realproc'$ ir/procdl iineSer)! EXTERNAL! 

Calling Pascal from Other Languages 

Calling Pascal from any other languages requires that calls to astit.initproc and asrti_wrapup 
bracket the program containing calls to Pascal routines. These routines are in assembler and the 
symbol names are: "-asm.iniiproc" and "-asm-wrapup" (they are located in /lib/libpc.a). The 
11-1 itp roc procedure has one parameter that is a pointer to an integer. The integer may be zero 
(echo) or non-zero (no echo). Only one call to each of these routines is required per program. 
Among other things, they set up the Pascal file system, heap manager, and error recovery. Without 
them, results may not be as expected. 
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Pasccil Run Time Error Handling 

During the (zxecution of a Pascal program, an error may originate from several sources: 

• In-line compiled code 

• Miscellaneous run time support routines (String, Set, Math, etc.) 

• Pascal file system 

• HP-UX file system support (system errors) 

• Hardware (SIGNALS) 

By using the $SYSPROG$ extensions TRY, RECOVER, and ESCAPECODE, almost all of these 
errors can be trapped for inspection. A kill signal cannot be caught. 

In the broadest sense, there are two kinds of errors; errors resulting from the execution of in-line 
code and errors resulting from calls to support routines "outside" the program. The in-line errors 
include range violation errors, NIL pointer errors, and math overflow errors. 

When a program is compiled, the compiler normally emits calls to an error routine which will 
generate an escapecode upon the detection of an in-line error. These calls can be suppressed by 
the use of compiler options. See the compiler options: RANGE and OVFLCHECK. 

Errors detected during the execution of miscellaneous run time support routines generate 
escapecodes the same way that in-line compiled code does. The key difference is that en-ors 
detected by support routines cannot have the error generation suppressed. 

Errors detected by the Pascal file system (10 errors) are generated by a combination of run time 
support code and in-line compiled code. The file system detects an error and assigns an appropriate 
10 error number to a global variable. After each call to a file system routine, the compiler also emits 
code to test the 10 error global variable and conditionally generates an escapecode error of - 10. 
You may access this global variable by adding a declaration to your program. See the System 
Programming Language Extensions section. 

During normal execution of the Pascal file system, HP-UX file support routines are continuously 
called to actually perform the desired actions. In most cases, if an error condition is returned to the 
Pascal file system, its significance is translated into a Pascal file system lO error. There are, however, 
conditions which arise that are totally unexpected, and in these cases a SYSTEM error is generated 
(escapecode of - 30). The generation of these errors cannot be suppressed. 

The final way in which an error can be generated is by an HP-UX signal. All signals that can be 
intercepted by a user process are converted into appropriate escapecode values. 

When emitting code for a main program, the Pascal compiler first emits a call to an initialization 
routine. When executed, the initialization routine calls the Pascal procedure catch-si^nals (see 
listing). The catoh-sisnals procedure instructs the operating system to transfer control to the 
catch-all procedure whenever a signal occurs. The c a t c h _ a 1 1 procedure determines which signal 
occurred and generates an appropriate escapecode. While the generation of these errors cannot be 
suppressed, you can set up your own routine to handle any particular signal desired. 

Also see the HP-UX documentation for SIGNAL. 
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What follows is a complete listing of the signal handling module. A listing of all 10, SYSTEM and 
ESCAPECODE messages that could be generated appears at the end of this appendix. 

module signals i 

export 

procedure catch_s i Jnal s ! 

procedure de f aul t_s i Sn al s i 

procedure catch_all( si3_rio: inteSeri t-p: inteSeri ptr: anyptr )! 

i (I) p 1 e (II e n t 

type 

shortint = -3276B. .327B7i 

siSuals = i dudifiiv tsishup tsisint tsi iquit isisill tsist rap tsiiiot (51 Jeiiit t 
sisfpetsiskilltsisbustsissesutsiss'/stsispipetsisalariiw 
SI Ste riTi luse rl tuserZ tsi 3chi Id tsi Jpwr) ; 

5iS_proc = procedure ( si S-no: inteieri typ: inteSeri Ptr: arr/Ptr)) 

war 

r ! record case inteSer of 
1 : ( proc : si s.proc) ; 
2: (address : aiv/Ptri 
static : integer); 
e n d i 
asiii_5i 3_i-io[ 'a5(ii_5iS_rio ' ] : inteieri 

const 

siSdfl = NIL! 

function signal *ALIAS '.signal '$ 

(i: inteseri p: anyptr): anyptri external? 

procedure catch_all( si3_no: inteSer! typ: inteSeri ptr: anyptr )i 
uar 

p : a n y p t r i 
b e 3 i n 

r. proc : = catch_al 1 ! 
as(ii_s i J_no : = si S_no i 
P ;= si Snal ( si 3_no » ri address ) i 
case si3_no of 

r d ( s i 3 h u p ) : { h a n 3 u p } 

escape ( -21 ) j 

ord(5i_3int ) : {interrupt -- breaK key or "C } 
escape ( -20) i 

rd ( sisqui t ) : {quit -- " I } 
escape ( -21 ) i 
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ord(si3ill): {illeSal instruction -- not reset to default} 
case t'/p of 

H: escape (-13) HKludSe for temp sisnals} 
G: escape ( -8) ! {chk> 
7: escape(-a)i {trapu} 
otherwise e5cape(-21)i 
e n d i 

Drd(si§t rap) : {trace trap -- not reset to default} 
escape ( -21 ) i 

ord(si3iot): {linea} 

escape ( -21 ) i 

ord(siSemt); { uniuipleiiiented instruction} 
e5cape(-21) ! 

ord(sisfpe): {floating point exception and diuide by zero} 
if typ = 5 then 

escape(-5) {lerodiu} 
else 

escape ( -21 ) i 

rd ( si sKil 1 ) : {cannot be cauSht}! 

ord(si0bus); {bus error} 
escape (-12) i 



ord{si05eSul 



{address violation} 
escape ( - 1 1 ) i 



r d ( 5 i S 5 y s ) : {bad a r S to system call} 
escape(-21 ) i 

r d ( s i 3 p i p e ) : {write on pipe y i t h no one to read} 
escape ( -21 ) i 



ord ( si Salariit) !{alariii clock went off} 
escape ( -21 ) i 

rd ( si Ste rm) : {software termination - 
e5cape(-20) i 



similar to s i 3 k i 1 1 } 



ord(userl)i 



{user defined} 
esoape( -21 ) i 



ordfuserZ): {user defined} 
escape ( -21 ) i 

ord(si3child) :{child died -- do not catch this sisnal} I 

ord(5i3Pwr): {power fail -- will never 3et to user} ! 



end) {case} 
e n d ! 
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procedure catch_s i Snal s i 
c ri 5 1 

si 3_i Sn = 1 i 
yar 

i : s h r t i n t i 

rec: record case iiUeJer of 
1 ! (pt r: anypt r) i 
2 : { i : i n t e S.e r ) i 
end i 
b e S i n 

r.proc := catch-allj 

for i := ord(5iShup) to ordlsiJpwr) do 
b e S 1 n 

if i <> ord(siSchild ) then 
b e s i n 

rec.pt r := s i inal ( i t r. add ress ) ; 
if recii = 5is_i3n then 

rec.ptr := si Snal ( i » rec ■ pt r) i 
e n d ! 
e n d i 
e n d i 



{maintain signals that are iSnored} 



procedure def aul t_si Snal s i 
ua r 

i : s h r t i n t ; 

p: anyptri 
b e 3 i n 
for i := ord(si3hup) to ordfsi^pwr) do 

p : = si 3nal ( i tsisdf 1 ) i 
e n d i 



end. 
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Operating System Run Time Error Messages 

Errors detected during the execution of a program generate an integer number. An error message is 
obtained by scannng the appropriate error message file for a line beginning with the same integer 
value. 

There is nothing to prevent you from modifying the error messages. If the error message file cannot 
be found or if its contents are invalid, subsequent error messages will be displayed as integer values. 

When using the TRY.. RECOVER construct, the following numbers correspond to the value of 

ESCAPECODE. 

These messages are in the file named: /usr/lib/escerrs. 

- 1 Abnormal termination. 

- 2 Not enough memory. 

- 3 Reference to NIL pointer. 

- 4 Integer overflow. 

- 5 Divide by zero. 

- 6 Real math overflow. 

- 7 Real math underflow. 

- 8 Value range error. 

- 9 Case value range error. 
- 10 Non-zero lORESULT - 
- 11 Segmentation violation. 
- 12 CPU bus error. 

- 13 Illegal CPU instruction. 

- 14 CPU privilege violation. 

- 15 Bad argument - SIN/COS. 

- 16 Bad argument - Natural Log. 

- 17 Bad argument - SQRT. 

- 18 Bad argument - real/BCD conversion. 

- 19 Bad argument - BCD/real conversion. 

- 20 Stopped by user. 

- 21 Unassigned CPU trap. 

- 30 System error - 

- 31 Calls to RELEASE and MALLOC are incompatible. 

- 32 Heap operations out of sequence. 

- 33 Illegal variant on dispose. 
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lO Errors 

When ESCAPECODE = - 10 one of the following errors has occurred. You can determine which error 
has occurred if you include the following variable declaration in your program. 

'.'AR lORESULTC'asm-ioresulf] : inteJer! 

The value of lORESULT will match one of the following errors. 
These messages are in the file named: /usr/lib/ioerrs. 

7 Bad file name. 

8 No room on volume. 
10 File not found. 

13 File not open. 

14 Bad input format. 
File not opened for reading. 
File not opened for writing. 
File not opened for direct access. 
String subscript out of range. 

29 Bad file close string parameter. 

30 Attempt to read past end-of-file mark. 
36 File type illegal or does not match request. 

Undefined operation for file. 



24 
25 
26 

28 



39 
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System Errors 

The following are HP-UX system error messages. 

When using the TRY.. RECOVER construct, an ESCAPECODE = -30 indicates a system error has 
occurred. 

These messages are in the file named: /usr/lib/syserrs. 



1 


Not owner. 


2 


No such file or directory. 


3 


No such process. 


4 


Interrupted system call. 


5 


I/O error. 


6 


No such device or address. 


7 


Arg list too long. 


8 


Exec format error. 


9 


Bad file number. 


10 


No child processes. 


11 


No more processes. 


12 


Not enough space. 


13 


Permission denied. 


14 


Bad address. 


15 


Block device required. 


16 


Mount device busy. 


17 


File exists. 


18 


Cross-device link. 


19 


No such device. 


20 


Not a directory. 


21 


Is a directory. 


22 


Invalid argument. 


23 


File table overflow. 


24 


Too many open files. 


25 


Not a typewriter. 


26 


Text file busy. 


27 


File too large. 


28 


No space left on device. 


29 


Illegal seek. 


30 


Read-only file system. 


31 


Too many links. 


32 


Broken pipe. 


33 


Math argument. 


34 


Result too large. 



288 HP-UX 



Pascal Compiler Errors 

Errors detected during the compilation of a program generate an integer number. An error message 
is obtained by scanning the appropriate error message file for a line beginning with the same integer 
value. 

There is nothing to prevent you from modifying the error messages. If the error message file cannot 
be found or if its contents are invalid, subsequent error messages will be displayed as integer values. 

These messages are in the file named: /usr/lib/paserrs. 



1 Erroneous declaration of simple type: 

2 Expected an identifier ; 

4 Expected a right parenthesis ")": 

5 Expected a colon ":": 

6 Symbol is not valid in this context: 

7 Error in parameter list: 

8 Expected the keyword OF: 

9 Expected a left parenthesis "(": 

10 Erroneous type declaration: 

11 Expected a left bracket "[": 

12 Expected a right bracket "]"; 

13 Expected the keyword END; 

14 Expected a semicolon ":"; 

15 Expected an integer: 

16 Expected an equal sign " = ": 

17 Expected the keyword BEGIN: 

18 Expected a digit following ".": 

19 Error in field list of a record declaration: 

20 Expected a comma ","; 

21 Expected a period ",": 

22 Expected a range specification symbol ".. 

23 Expected an end of comment delimiter: 

24 Expected a dollar sign "$": 

50 Error in constant specification; 

51 Expected an assignment operator ":="': 

52 Expected the keyword THEN; 

53 Expected the keyword UNTIL: 

54 Expected the keyword DO; 



55 Expected the keyword TO or DOWNTO: 

56 Variable expected; 

58 Erroneous factor in expression: 

59 Erroneous symbol following a variable: 

98 Illegal character in source text; 

99 End of source text reached before end of prog- 
ram; 

100 End of program reached before end of source 
text; 

101 Identifier was already declared: 

102 Low bound > high bound in range of con- 
stants; 

103 Identifier is not of the appropriate class; 

104 Identifier was not declared: 

105 Non-numeric expressions cannot be signed: 

106 Expected a numeric constant here; 

107 Endpoint values of range must be compatible 
and ordinal; 

108 NIL may not be redeclared; 

110 Tagfield type in a variant record is not ordinal: 

111 Variant case label is not compatible with tag- 
field; 

113 Array dimension type is not ordinal: 

115 Set base type is not ordinal: 

117 An unsatisfied forward reference remains: 

121 Pass by value parameter cannot be type FILE; 

123 Type of function result is missing from declar- 
ation; 

125 Erroneous type of argument for built-in 
routine; 
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Pascal Compiler Errors (continued) 



126 Number of arguments different from number 
of formal parameters; 

127 Argument is not compatible with correspond- 
ing parameter; 

129 Operands in expression are not compatible; 

130 Second operand of IN is not a set; 

131 Only equality tests ( =, <> ) allowed on this 
type; 

132 Tests for strict inclusion ( <, > ) not allowed 
on sets; 

133 Relational comparison not allowed on this 
type; 

Operand(s) are not proper type for this oper- 
ation; 



134 
135 



Expression does not evaluate to a boolean re- 
sult; 



136 Set elements are not of ordinal type; 

137 Set elements are not compatible with set base 
type; 

138 Variable is not an ARRAY structure; 

139 Array index is not compatible with declared 
subscript; 

140 Variable is not a RECORD structure; 

141 Variable is not a pointer or FILE structure; 

143 FOR loop control variable is not of ordinal 
type; 

144 CASE selector is not of ordinal type; 

145 Limit values not compatible with loop control 
variable; 

147 Case label is not compatible with selector; 

149 Array dimension is not bounded; 

150 Illegal to assign value to built-in function iden- 
tifier; 

152 No field of that name in the pertinent record; 

154 Illegal argument to match pass by reference 
parameter; 

156 Case label has already been used; 

158 Structure is not a variant record; 



160 Previous declaration was not forward; 

163 Statement label not in range 0..9999; 

164 Target of nonlocal GOTO not in outermost 
compound statement; 

165 Statement label has already been used; 

166 Statement label was already declared; 

167 Statement label was not declared; 

168 Undefined statement label; 

169 Set base type is not bounded; 

171 Parameter list conflicts with forward declar- 
ation; 

177 Cannot assign value to function outside its 
body; 

181 Function must contain assignment to function 
result; 

182 Set element is not in range of set base type; 

183 File has illegal element type; 

184 File parameter must be of type TEXT; 

185 Undeclared external file or no file parameter; 

190 Attempt to use type identifier in its own declar- 
ation; 

300 Division by zero; 

301 Overflow in constant expression; 

302 Index expression out of bounds; 

303 Value out of range; 

304 Element expression out of range; 

400 Unable to open list file; 

401 File not found; 

403 Compiler error; 

404 Compiler error; 

405 Compiler error; 

406 Compiler error; 

407 Compiler error; 

408 Compiler error; 

409 Compiler error; 
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Pascal Compiler Errors (continued) 



660 String constant cannot extend past text line; 

661 Integer constant exceeds the range imple- 
mented; 

662 Nesting level of identifier scopes exceeds max- 
imum (20); 

663 Nesting level of declared routines exceeds 
maximum (15); 

665 CASE statement must contain a non- 
OTHERWISE clause; 

667 Routine was already declared forward; 

668 Forward routine may not be external; 

671 Procedure too long; 

672 Structure is too large to be allocated; 

673 File component size must be in range 
1.. 32766; 

674 Field in record constructor improper or mis- 
sing; 

675 Array element too large; 

676 Structured constant has been discarded (cf. 
$SAVE_CONST); 

677 Constant overflow; 

678 Allowable string length is 1..255 characters; 

679 Range of case labels too large; 

680 Real constant has too many digits; 

681 Real number not allowed; 

682 Error in structured constant; 

683 More than 32767 bytes of data; 

684 Expression too complex; 

685 Variable in READ or WRITE list exceeds 
32767 bytes; 

686 Field width parameter must be in range 
0..255; 



687 
688 

689 Module name may not exceed 12 characters; 



Cannot IMPORT module name in its EXPORT 
section; 

Structured constant not allowed in FOR- 
WARD module; 



600 Directive is not at beginning of the program; 
602 Directive not valid in executable code; 

604 Too many parameters to $SEARCH; 

605 Conditional compilation directives out of 
order; 

606 Feature not in Standard PASCAL flagged by 
$ANSI ON; 

607 Language feature not allowed; 

608 $1NCLUDE exceeds maximum allowed depth 
of files; 

609 Cannot access this $INCLUDE file; 

610 $INCLUDE or IMPORT nesting too deep to 
IMPORT <module-name>; 

611 Error in accessing library file: 

612 Language extension not enabled; 

613 Imported module does not have interface text; 

614 LINENUM must be in the range 0. . 65535 ; 

620 Only, first instance of routine may have 
$ALIAS; 

621 $ALIAS not in procedure or function header; 

646 Directive not allowed in EXPORT section; 

647 Illegal file name; 

648 Illegal operand in compiler directive; 

649 Unrecognized compiler directive; 

651 Reference to a standard routine that is not im- 
plemented; 

652 Illegal assignment or CALL involving a stan- 
dard procedure; 

653 Routine cannot be followed by CON- 
ST,TYPE, VAR, or MODULE; 

654 Module declaration may not follow structured 
constant declaration; 

655 Record or array constructor not allowed in ex- 
ecutable statement; 

657 Loop control variable must be local variable; 

658 Sets are restricted to the ordinal range .. 255; 

659 Cannot blank pad literal to more than 255 
characters; 
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Pascal Compiler Errors (continued) 



696 Array elements are not packed: 

697 Array lower bound is too large; 

698 File parameter required; 

699 32-bit arithmetic overflow; 

701 Cannot dereference ( '^ ) variable of type 
anyptr; 

702 Cannot make an assignment to this type 
of variable; 

704 Illegal use of module name; 

705 Too many concrete modules; 

706 Concrete or external instance required; 

707 Variable is of type not allowed in variant 
records; 

708 Integer following # is greater than 255; 

709 Illegal character in a "sharp" string; 

710 Illegal item in EXPORT section; 

711 Expected the keyword IMPLEMENT; 

712 Expected the keyword RECOVER; 

714 Expected the keyword EXPORT; 

715 Expected the keyword MODULE; 

716 Structured constant has erroneous type; 

717 Illegal item in IMPORT section; 

718 CALL to other than a procedural variable; 

719 Module already implemented (duplicate 
concrete module); 

720 Concrete module not allowed here; 

730 Structured constant component incom- 
patible with corresponding type; 

731 Array constant has incorrect number of 
elements; 

732 Length specification required; 

733 Type identifier required; 

750 Error in constant expression; 

751 Function result type must be assignable; 

900 Error opening code file; 

901 Error writing to code file; 
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Implementation Appendix 



The Series 200 Workstation 

This appendix describes the implementation-specific details of HP Pascal for the Workstation 
Langauage System on the Series 200 Computers. 

The following topics are described in this appendix. 

• Compiler Options 

• Implementation Dependencies 

• Supported Pascal Extensions 

• System Programming Language Extensions 

• Pascal File Support 

• Heap Management 

• Error Messages 

If you are not already familiar with the Pascal lanuguage, the information presented in this appendix 
may not be sufficient for you to successfully compile and execute a non-trivial Pascal program. If 
you have difficulties, please refer to the user manuals and techniques manuals provided with your 
Series 200 Workstation for more information. 
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Compiler Options 



This section describes the compiler options (compiler directives) you may use with HP Pascal on 
Series 200 Workstations. When specified, compiler options usually have a default action and 
restrictions on where they may appear. These restrictions are shown on every page immediately 
below the option. The explanation of these restrictions is given below. 



Location 

Anywhere: 
At front: 

Not in body: 

Statement: 
Special: 



Restrictions on the Placement of Compiler Directives 

Restriction 

No restriction. 

Applies to entire source file; must appear before the first "token" in the source file 
(before PROGRAM, or before MODULE if compiling a list of modules). 

Applies to a whole procedure or function: can't appear between BEGIN and END. 
Good practice to put these options immediately before the word BEGIN, or the 
procedure heading. 

Can be applied on a statement-by-statement basis or to a group of statements, by 
enabling before and disabling after the statements of interest. 

As explained under the particular option. 



If a option appears in the interface (import or export) part of a module, it will have effect as the 
module is compiled. However, the option itself will not become part of the interface specification 
(export text) in the compiled module's object code and will have no effect in the implement section 
of the module being compiled. 



Note 

The syntax of the two Compiler options $IF and $SEARCH do not 
conform to the syntax of all other allowable options. 
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ALIAS 

Default: External name = Procedure Name 
Location: Special, See Below 

This option causes a name, other than the name used in the Pascal procedure or function declara- 
tion, to be used by the loader. 



-.-{?)-H^^[^r)--.-Q-*- ' 



Item 


Description/Default 


Range Restrictions 


external name 


string 


Entire declaration must 
fit on one line. 



Semantics 

The string parameter specifies the external name for the procedure in whose header the option 
appears. 

Example 

procedure $ a 1 1 a s ' o h a r 1 i e ' $ p ( i : i ri t e S e r ) i external; 

Within the program, calls use the name "p"; but the loader will link to a physical routine called 
"charlie". 

The option must appear between the keywords PROCEDURE or FUNCTION and the first symbol 
following the semicolon ( i ) denoting the end of the procedure or function declaration. 

The option may not appear in an export section. 
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ANSI 

Default; OFF 
Location: At Front 

This option selects whether an error message is to be emitted for use of any feature of HP Standard 
Pascal not contained in ANSI/ISO Standard Pascal. 



~*\^y~\ *'^^' ) — i~*A °** J — 1"*^*^^ — *~ 



w; 



OFF 



Semantics 

"ANSI" is interpreted as "ANSI ON". 

ON causes error messages to be issued for use of any feature of HP Standard Pascal which is not 
part of ANSI/ISO Standard Pascal. 

OFF suppresses the error messages. 

Example 

tan si ori$ 



Workstation 297 



CALLABS 

Default: ON 
Location: Anywhere 

This option determines whether 16-bit relative or 32-bit absolute jumps are to be generated by the 
compiler. 



~*v^y*~( '^*'-'-*^s ) — n*A °** J — V*~\^) — ^ 



K 



OFF 



Semantics 

"CALLABS" is interpreted as "CALLABS ON". 

ON specifies that 32-bit absolute jumps will be emitted for all forward and external procedure calls. 
OFF specifies 16-bit PC-relative jumps. Allowed on a statement-by-statement basis. 

Example 

$callabs off* 
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CODE 



Default: ON 
Location: Not in Body 



This option is used to control whether a CODE file will be generated by the compiler. 
""v^Tv CODE J — T"^ o*^ J — I-'vO — *~ 



K 



OFF 



Semantics 

"CODE" is interpreted as "CODE ON". 

ON specifies that executable code will be emitted. 

Example 

$code off* 
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CODE_OFFSETS 



Default: OFF 
Location: Not in Body 



This option controls the inclusion of program counter offsets in the compiler listing. 



— ^$ j— ^CODE-OFFSETs) T"^ °** J 1"*^^) — *~ 



h: 



OFF 



Semantics 

"CODE_OFFSETS" is interpreted as "CODE_OFFSETS ON". 

ON specifies that line number-program counter pairs will be printed for each executable statement 
listed. This can be applied on a procedure-by-procedure basis. 

Example 

*code_offsets ori$ 
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COPYRIGHT 



Default: Not Applicable 
Location: Anywhere 



This option is provided for inclusion of copyright information. 



— ^$ y-^-TcOPYRIGHTV-*-/' ' J—»~ 



Item 



copyright message 



Description/Default 



string 



Range Restrictions 



Entire copyright must fit 
on one line. 



Semantics 

The string parameter is placed in the object file as the owner of the copyright. If more than one 
COPYRIGHT option is included, the last one is effective. 

Example 

■IcoP'/riSht 'Hewlett Packard Company t 1983'$ 
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DEBUG 



Default: OFF 
Location: Not in Body 



This option controls whether the code produced by the compiler contains the additional informa- 
tion necessary for the full use of the debugger. 



— »-/$Y-^ DEBUG J — r*^ °'* J — r*vv — *" 



K 



OFF 



Semantics 

"DEBUG" is interpreted as "DEBUG ON" 

This option will cause debugging instructions to be emitted by the compiler and may be applied on 
a procedure-by-procedure basis. 

Example 

procedure b u 3 i y i 
u a r i : i n t e 3 e r i 
$ d e b u 3 n $ 
b e J i n 

e ri d i 
$debi.is off* 
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DEF 



Default: 10 records (on same volume as code output) 
Location: At Front 



This option allows the user to change the size and location of the temporary compiler file " . DEF' 



~*\^)~*^ p^'' y- 



def file 



M!H 



def file 
volume id 




<?>^ 



Item 


Description/Default 


Range Restrictions 


def file size 

def file volume id 


integer numeric constant 
string 


less than 32767 
valid volume identifier 



If the parameter is a string, it specifies the volume where a temporary Compiler file called ".DEF", 
which holds external definitions, will be stored. If the parameter is a number, it specifies how many 
logical records will be allocated for the DEF file. See the section. What Can Go Wrongi? near the 
end of this appendix. 

Examples 



*def 50$ 

$ d e f ■' c Q (ii p u 1 : ' $ 

* d e f ' J u n k M 1 : ' * del 



50$ 
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FLOATHDW 



Default: OFF 
Location: Not in body 



This option enables and disables the use of floating-point hardware. Requires Pascal 3.0 



GC^~T*® — ^ 




Semantics 

An optional floating-point hardware board is available for Series 200 Computers to increase the 
execution speed of floating-point math programs. 

"FLOAT_HDW" is interpreted as "FLOAT^HDW ON" 

ON instructs the compiler to generate accesses to hardware for most floating-point operations. If the 
hardware does not exist when the program is executed, an error will result. 

OFF tells the compiler to generate calls to libraries for all floating-point operations. 

TEST causes the compiler to generate both hardware accesses and library calls. The compiler 
automatically includes code to test for the presence of floating-point hardware. At execution time, if 
the test succeeds, the hardware accesses are used, otherwise the library calls are used. 

The operations that use the hardware include: addition, subtraction, multiplication, division, nega- 
tion, and the sqr function. All other math functions call library routines. There are libraries that 
access the floating-point hardware. Hardware can also be used by any operation that converts an 
integer to a real or longreal. The hardware is not used by operations that convert reals or longreals 
into integers. 

Example 

$float test* 
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HEAP DISPOSE 



Default: OFF 
Location: At Front 



This option enables and disables "garbage collection" in the heap. 
—•-{V)— ►-(heap-dispose) 1— ►-/onJ — r*KA) — *" 



OFF 



Semantics 

"HEAP^DISPOSE" is interpreted as "HEAP^DISPOSE ON" 

ON indicates that DISPOSE allows disposed objects to be reused. 

OFF does not recycle disposed objects. 

If enabled, this option must appear at the front of the main program. It has no effect in separately 
compiled modules. 

Example 

*heap_ dispose onf- 
p r S r a III r e c '/ c 1 e i 

+ t I 
b e S i ri 

d 1 5 p s e ( p .) i ( * f r e e up cell*) 

new(p); {♦probably sets same cell back*) 

e n d . 
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IF 



Default: Not Applicable 
Location: Anywhere 

This option allows conditional compilation. 



^($> OnH expresTon H ^ H "t!!?"' K $X"^i^^X$>^ 



Item 



Description/Default 



Range Restrictions 



boolean expression 



conditional text 



source to be conditionally compiled 



may only contain 
compile time constants 



Semantics 

If the expression evaluates to FALSE, then text following the option is skipped up to the next END 
option. 

If the boolean evaluates to TRUE, then the text following the option is compiled normally. 

IF-END option blocks may not be nested. 

Example 

const fancy = true! 
1 i (ii i t = 10) 
size = Si 

i * i 

$if fancy and ( ( si ze + 1 X 1 imi t ) $ 

( * this will be skipped * ) 
$end* 
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INCLUDE 



Default: Not Applicable 
Location: Anywhere 



This option allows text from another file to be included in the compilation process. 



— <A>- K '^^^"°^ > H^^>- H"Jl^r[ -<0-H^$>H 



Item 


Description/Default 


Range Restrictions 


file specifier 


string 


any valid file specifier 



Semantics 

The string parameter names a file which contains text to be included at the current position in the 
program. Included code may contain additional INCLUDE options. 

The remainder of the line containing this option must be blank except for the closing "$". 

Example 

PROGRAM inclusiue; 

*include 'SOURCE : DECLARS ■'$ 

^include 'SOURCE;BODY '$ 
END. 



Workstation 307 



lOCHECK 



Defualt ON 
Location: Statement 



This option enables and disables error checking following calls to system I/O routines. 
— •>/$\-*-^ioicHECK J — f*^ °** J — r"v?y — *" 



OFF 



Semantics 

"lOCHECK" is interpreted as "lOCHECK ON" 

ON specifies that error checks will be emitted following calls on system I/O routines such as RESET, 
REWRITE, READ, WRITE. 

OFF specifies that no error will be reported in case of failure. 

This option can be used in conjunction with the standard function lORESULT if the UCSD or 
SYSPROG language extensions have been enabled. 

lOCHECK can be specified on a statement-by-statement basis. 

Example 

$ u c s d $ 

$iQchecK off* 

reseKfi'datafile'); 

$ i c h e c k d n $ 

if i r e s u 1 1 <> then y r i t e 1 n ( ' I D error')! 
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LINENUM 

Default: Not Applicable 

Location: 

Anywhere 

This option allows the user to establish an arbitrary line number value. 



~*A^/"*A '-"'^'^"'' /"*" ''™ "umbei 



Item 



line number 



Description/Default 



integer numeric constant 



Range Restrictions 



1 thru 65535 



Semantics 

The integer parameter becomes the current line number (for listing purposes and debugging 
purposes if $debuj$ is enabled). 

Example 

*lineriU(ii 20000* 
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LINES 

Default: 60 lines per page 
Location: Anywhere 

This option allows the user to specify the number of lines-per-page on the compiler listing. 



-*{$y^ LINES )— --r -H^y^ 




Item 


Description/Default 


Range Restrictions 


lines per page 
string 


integer numeric constant 
any valid file specifier 


20 thru MAXINT 



Semantics 

Specifying 2000000 lines-per-page suppresses autopagination. 



Examples 



$liries 55* 
Slines 2000000$ 



(♦suppress a u t o p a 3 i n a t i o n # ) 
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LIST 

Default: ON to Std. output file 
Location: Anywhere 

This option controls whether or not a listing is being generated, and where it is being directed to. 



-<^y*o^^^y-T*o \ spSe. h -o-w^y- 






Item 


Description/Default 


Range Restrictions 


file specifier 


string 


any valid file specifier 



Semantics 

"LIST" is interpreted as "LIST ON". 

LIST with a file specifier specifies that the file is to receive the compilation listing. 

LIST OFF suppresses listing. 

LIST ON resumes listing. No listing will be produced at all, regardless of this option, unless 
requested by the operator when the Compiler is invoked, (i.e. the "-L" option of the pc command 
is specified. ) 

Example 

*list 'MYMDL:KEEPLIST'$ 
$list 'PRINTER: '$ 
$list off* 
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OVFLCHECK 



Default: ON 

Location: Statement-by-statement 



This option gives the user some control over overflow checks on arithmetic operations. 
— */$V- *-{ovflcheck) — p*\ ON J — r"*~C''/ — *" 



K 



OFF 



Semantics 

"OVFLCHECK" is interpreted as "OVFLCHECK ON" 

ON specifies that overflow checks will be emitted for all in-line arithmetic operations. 

OFF does not suppress all checks: they will still be made for 32-bit integer DIV, MOD, and 
multiplication. 

Example 

$oufl check off$ 
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PAGE 



Default: Not Applicable 
Location; Anywhere 



This option causes a formfeed to be sent to the listing file if compilation listing is enabled. 
— »-{T)-»>{^ PAGE 3~"*-($)— *" 



Example 

$ p a i e $ 
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PAGEWIDTH 

Default: 120 
Location: Anywhere 

This option allows the user to specify the width of the compilation listing. 



— »-/$\-^PAGEWIDTHy-^ 


characters 
per line 


^<!>* 




Item 




Description/Default 


Range Restrictions 


characters per line 




integer numeric constant 


80 thru 132 



Semantics 

The integer parameter specifies the number of characters in a printer line. 

Example 

*paSewidth 80$ 
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PARTIAL_EVAL 



Default: OFF 

Location: Statement-by-statement 

— ^$")— *-{pARTIAL_EVAir) r-t-ToNJ T~*\^ — *~ 



K 



OFF 



Semantics 

"PARTIAL_EVAL" is interpreted as "PARTIAL_EVAL ON". 

ON suppresses the evaluation of the right operand of the AND operator when the left operand is 
FALSE. The right operand will not be evaluated for OR if the left operand is TRUE. 

OFF causes all operands in logical operations to be evaluated regardless of the condition of any 
other operands. 

Example 

* p a r t i a 1 _ e u a 1 a n $ 

while (pOnil) and ( p" , coi.iiu>0 ) do 
p : = p ■■■ . 1 1 n K i 
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RANGE 



Default: ON 

Location: Statement-by-statement 



This options enables and disables run-time-checks for range errors. 
— "-(V)— H "angeJ — 1-^ ON J) — r"K^J — *~ 



K 



OFF 



Semantics 

"RANGE" is interpreted as "RANGE ON". 

ON specifies that run-time checks will be emitted for array and case indexing, subrange assignment, 
and pointer dereferencing. 

Example 

1.) a r a : a r r a y C 1 . . 1 ] of i n t e J e r i i : i n t e 3 e r i 

* i * 

i := Hi 

$rariSe off* 

a [ i ] ! = ; { * i n u a 1 i d index not caught! * ) 
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REF 

Default: 30 records (on same volume as code output) 
Location: At Front 

This option allows you to change the size and location of the temporary compiler file ".REF". 



-U*\-^ REF V-n 






ref file 
size 


. (^ » 




W V ""^"^ >* 




w 
















k'>* 


ref file 
volume id 


-0-' 




Item 








Description/Default 


Range Restrictions 


ref file size 

ref file volume id 




integ 
strin; 


er numeric constant 
3 


less than 32767 
valid volume identifier 



If the parameter is a string, it specifies the volume where a temporary Compiler file called ".REF", 
which' holds external references, will be stored. If the parameter is a number, it specifies how many 
logical records will be allocated for the REF file. See What Can Go Wrong? near the end of this 
appendix. 

Examples 



*ref 20$ 

$ref 'REFUOL:'$ 

*ref 'JUNKMOL: ' i 



ref 50$ 
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SAVE_CONST 



Default: ON 
Location: Anywhere 

This option controls whether the name of a structured constant may be used by other structured 
constants. 



—*~r$y-*-fsME.coNSJj — T"^ °** J — r~v^y — *" 



k: 



OFF 



Semantics 

"SAVE_CONST" is interpreted as "SAVE_CONST ON". 

ON specifies that compile-time storage for the value of each structured constant will be retained for 
the scope of the constant's name (so that other structured constants may use the name). 

OFF specifies that storage will be deallocated after code is generated for the structured constant. 

Example 

$5aue_c[)nst off$ 

type ar;' = array [1..100] of inteSeri 

const anon = ary [345 (45691 » ]! 

(*bi3 constants take lots of couipi le-t inte dtemory*) 
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SEARCH 



Default: Not Applicable 
Location: Anywhere 



This option is used to specify files to be used to satisfy IMPORT declarations. 



<^ 



^<iMH^3^-H3H]^ri-<>-Mi)-* 



Iter 



file specifier 



Description/Default 



string 



Range Restrictions 



any valid file specifier 



Semantics 

SEARCH must be the last option in an option list! 

Each string specifies a file which may be used to satisfy IMPORT declarations. Files will be searched 
in the order given. The file, "*librapy" is always searched last. A default maximum of 10 files may 
be listed. (See $SEARCH_SIZE ...$.) 

Example 

$search 'FIRSTFILE' , 'SECONDF ILE '$ 
i III p D r t c m p 1 e ■>•; (II a t h ! p o 1 a r in a t h i 
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SEARCHSIZE 



Default: 10 files 
Location: At front 



This option allows you to increase the number of external files you may SEARCH during a 
module's compilation. 



Item 


Description/Default 


Range Restrictions 


number of files 


integer numeric constant 


less than 32767 



Semantics 

When compiling a Pascal module, it is sometimes desirable to import another module from another 
file. To import a module from another file, the SEARCH option is used to identify the file. Up to ten 
SEARCH options may be given unless the SEARCH_S1ZE option is given. The SEARCH_S1ZE 
option allows you to SEARCH up to 32 766 external files for imported modules. 

Example 

$ s e a r c h _ 5 i z e 30* 
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STACKCHECK 



Default: ON 
Location: Not in Body 



This option enables and disables stack overflow checks. 

— ^$ V*-^STACKCHECK J r"*^ ON J r"*"\$) — *~ 

^-*-\ OFI 



Semantics 

"STACKCHECK" is interpreted as "STACKCHECK ON". 

ON specifies that stack overflow checks will be generated at procedure entry. It is very dangerous to 
turn overflow checks off! Obscure and unreported errors may result. 

Example 

* s t a c K c h e c k o f f $ 
p r c e d u r e u. n s a f e i 
ua r 

ma;'_5(iiash_heap: array [l.,500] of inteSeri 
b e 3 i n ... end; 
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SWITCH_STRPOS 



Default: OFF 
Location: Anywhere 



This option reverses the positions of the parameters of the STRPOS function. 

»^$^) ►■C SWITCH_STRPOS _) »•($) - 



Semantics 

Without this option, the order of parameters for the STRPOS function is as follows: 

STRP0B(5earch_patterri , source_stririi) 

Later, when the HP Pascal Standard was established, the order of parameters was reversed. Thus, 
if you use the STRPOS function, the compiler issues a harmless warning to indicate that you are not 
conforming to the standard. 

If you wish to conform to the standard, include the *5witoh_st rpos* option and reverse the order 
of the parameters. (See example below. ) 

Example 

$5witch_5trpo5$ 

STRPOS ( 50i.irce_st rinS t sea roh_patt e rn ) « 

* t + 

STRPOS ( ' i ') 'hurricane ■') i 
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SYSPROG 

Default: System Programming Extensions not enabled 
Location: At Front 

This option makes available some language extensions which are useful in systems programming 
applications. See "System Programming Language Extensions" in this appendix. 

~*v'y*A SVSPROG \-^$ J — »- 



Example 

$ s y 5 p r S $ 

PROGRAM tiiachinedependenl • 
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TABLES 



Default: OFF 
Location: Not in Body 



This option turns on and off the listing of symbol tables. 
--*-/$V-»-(tables j — T"^ °'* J — ]r*\A)~~*" 



OFF 



Semantics 

"TABLES" is interpreted as "TABLES ON" 

ON specifies that symbol table information will be printed following the listing of each procedure. 
This is useful for very low-level debugging. 

Example 

$tables$ 

procedure h a s a b u S ( u a r p : i n t e 3 e r ) ! 

1.1 a r 
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UCSD 



Default: UCSD not enabled 
Location: At Front 



This option allows the compiler to accept most UCSD Pascal language extensions. See Supported 
Features of UCSD Pascal later in this appendix. 



Example 

$ U C 5 d $ 

p ro3 raiii f unriv i o i 
V a r 

f ! file! ( # no type specified! # ) 
h e i i n 

unit read (B -ary (80 ilO) j 
e n d . 
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WARN 



Default: ON 
Location: At Front 

This option allows the user to suppress the generation of compiler warning messages. Requires 
Pascal 3.0 



— ^-(V)-*-^ WARN J — r~*\^ °** J — r"*vO — *" 



K 



OFF 



Semantics 

"WARN" is interpreted as "WARN ON" and compiler warnings will be issued. 

Example 

$warri off$ 
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Implementation Restrictions 



The following HP Pascal keywords and topics have implementation dependencies when using the 
Series 200 Workstation compiler. 



Keyword 



CASE 



C 1 n s p 



Compiler Input 



Dependency 

CASE statements are implemented using a "jump table". This table is orga- 
nized as an array of 16-bit values, each an "offset" or distance from the head 
of the statement to the various cases. The number of entries in the table is the 
inclusive range from the lowest to the highest labels in the statement. If the 
lowest is labeled "1" and the highest is "15000", there will be 15000 entries! 

The Compiler displays a warning if it decides a CASE statement is unreason- 
ably large and most of the values in the table are absent or correspond to the 
same case. If you get such a warning, you should probably recode the state- 
ment using IP's or a combination of IP's and a smaller CASE statement. 

Despite the warning, the Compiler will try to generate the statement as written. 
If the jump table is very large, it may take a long time to write to the output file. 
You may even think the Compiler has gotten hung up somehow, but the 
warning message indicates this is not the case. 

The following literals may be used as the optional string parameter in the close 
procedure. 

LOCK ' or SAUE ': The system will save the file as a permanent file. 

NORMAL', TEMP', or none; If the file is already permanent, it remains in the 
directory. If the file is temporary, it is removed, 

' PURGE ': The system will remove the file. 

Input to the Compiler is normally prepared by the Editor. Piles produced by 
the Editor are text files, that is, they can be read as files of type TEXT, 
However, they are more restricted in structure than text files produced by 
Pascal WRITE statements. 

Text files are stored as "pages" consisting of 1024 bytes per page. The restric- 
tion imposed by the Editor is that no line ever crosses a page boundary; 
instead, when a line is too long to fit into the current page, the page is padded 
with Null characters (ASCII zero) and the line which would have spanned the 
boundary between two pages starts at the front of the next page, WRITE 
statements simply do not impose this restriction. 

The Compiler is unable to properly process a line which spans a page bound- 
ary. It will "see" spurious characters in the line, and report a syntax error. If 
you wish to compile a text file not produced by the Editor, the easiest way to 
fix it is to simply fetch it with the Editor and immediately save it back out. The 
Editor will fix things up. 
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Directives 

dispose 
e H t e r n a 1 

Global Variables 



The 



e x t e r i"i a 



1 directive allows Pascal to use externally defined code segments. 



See the section on the Pascal Heap Manager. 

This directive may be used to indicate a procedure or function that is described 
externally to the program. See the section: Pascal and Other Languages. 

The global variables of a program or module must not exceed 65 536 bytes of 
space. 

Global areas are accessed through the processor's AS register. The AS register 
actually points to a location 32 768 bytes below the start of global space. By 
adding (subtracting) a displacement value (which can range from - 32 768 
through +32 767) to the contents of register AS, all 65 536 bytes of global 
space can be accessed. 

Use the main command level's [ V ] command to see the current amount of 
global space (and free space) available for programs and libraries. 

Every module loaded is allocated global area at load time. The sum of global 
space for all the modules and programs loaded at any time can't exceed 
65 536 bytes. About 2000 bytes of global space are taken up by the operating 
system. The Compiler and Assember each take about 7000 bytes, the Editor 
about 4000 bytes, the Librarian about 2000 bytes, and the Filer about 1000 
bytes. 

If you're writing a program which needs a very large global area (i.e. a big 
array), it can be allocated out of the heap by a call to neu, then referenced 
through a pointer. This is a bit of a nuisance, but carries a negligible perform- 
ance penalty. 

p roSraiii b i Jar ray ! 
t y p e 

SiSantic = array [1.. 20000] of real! {needs 160*000 bytes } 

p I r = '" 3 i 4 a n t i c i 
u a r b i S t h i n 3 : p t r ! 

i > J : i n t e 3 e r ! 
b e 3 i n 

ri e u ( b i 3 1 h i n 3 ) i 

for 1 := 1 to 20000 do b i 3t h in 3' [ i ] := O.Oi 
e n d t 



Note 
Each time you permanently load (P-load) a program or library, there 
will be fewer bytes of global space for use by an application program. 
The only way to regain the global space is to reboot. 
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Heap Procedures 



IMPORT 



INCLUDE 



1 n t e 3 e r ; 



lastpos 
1 i n e p s 
Local Variables 

1 n s r e a 1 



(II a r H 
fi) a K i n t 
III i ri i 11 1. 
Modules 



The supported heap procedures are: new, mark, release, dispose. See the 
Heap Managers Section. 

Unless the tSEARCH_BIZE* compiler option is specified in your source file, the 
Compiler can only keep track of a maximum of 10 active input files at once. 
This means that an INCLUDE file can include another file, and so forth, up to 
nine times. Exceeding this limit causes errors 608 or 610. 

When a module is imported which hasn't been previously imported during a 
compilation, a form of inclusion takes place in which various library files are 
opened and searched. These files are counted against the maximum of ten 
while they are open (during the processing of the IMPORT declaration). 

If module "A" is imported, and its interface specification imports module "B", 
and so on, the Compiler will chase the importation chain to its very end (unless 
it runs into the name of a module which has already been seen). If you 
encounter a situation in which the chain exceeds the limit of ten open input 
files, you can avoid the problem by making the first module in the chain import 
all the others in reverse order: the end of the chain first, then the modules 
which depend on that last one, and so on. 

See the restrictions for IMPORT. 

The range is: 

-2147483648 thru 2147483647 

The last.pos function is not implemented on the Workstation. 

The standard function 1 in epos is not implemented. 

The local variables of a procedure or function must not exceed 32 767 bytes 
of space. 

The approximate range is: 

- 1.79769313486231L + 308 thru - 2.22507385850720L - 308, 

0, 

2.22507385850720L-308 thru 1.79769313486231L + 308 

See the section describing the Pascal Heap Manager 

The value of maxint is: 2147483647 

The value of minint is: - 2147483648 

Module identifiers are restricted to 15 characters. No other identifiers are 
restricted in length in this implementation. 

Module Names Used by the Operating System. 

If you create a module having the same name as a system module, and your 
module exports a procedure which has the same name as some procedure 
exported from that Operating System module, the loader will hook up external 
references to the wrong place. The simplest way to avoid this is to not use any 
of the module names in the operating system. 
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You can use the Librarian to list the file directory of the system modules to 
discover what names are used by the operating system. In particular, you 
should check the INITLIB, LIBRARY, 10, INTERFACE, and GRAPHICS modules. 

Some common module names are listed below. 



CI 


MINI 


IDDECLARATIONS 


FS 


ASM 


KERNEL 


KBD 


I BR 


LOCKMDDULE 


LOADER 


SYSGLOBALS 


DEBUGGER 


DIBCHPIB 


UID 


ALLREALS 



real Type real has the same precision as l d n 3 r e a 1 . However, in w r 1 1 e statements 

the default field width for 1 o n s r e a I is the same as for r e a 1 , and the exponent is 
written preceded by E instead of L. 

The approximate range is: 

- 1.79769313486231E + 308 thru -2.22507385850720E-308, 

0, 

2.22507385850720E-308 thru 1.79769313486231E + 308 

release Files in the heap will not be closed by release. 

Sets The ordinal range of sets may not be greater than 256 elements. 

Strings The longest possible string contains 255 characters. 

5t rread The return parameter (indicating the next character to be used with the next 

St rread operation) must be an integer (an integer subrange is not allowed). 

St rw rite The return parameter (indicating the next position to be used with the next 

s t ry r i t e operation) must be an integer (an integer subrange is not allowed). 

Subrange A variable declared as a subrange needing 16 or fewer bits for its representa- 

tion will be stored as a word instead of a longword. For example, 

type integer = -327G8. .327B7 i 
If all the operands of an expression are represented as 16-bit objects, the 
Compiler implements the expression in 16-bit rather than 32-bit instructions. 
In particular, integer overflow is detected as a carry into the 17th bit. The rules 
are: 

add, subtract: overflow will be detected, 
divide: -32768 div - 1 yields integer overflow, 
multiply: the result is widened to 32 bits. 

Note that the representation of an unpacked subrange of integer always re- 
serves room for a sign bit. Hence the range 0.. 65535 will not be represented in 
16 bits, even though it could in fact be. 

text Appending to a text file is not allowed. 

WITH When f is a function call, WITH f DO is not allowed. 
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Pascal Extensions 

Over the years, various implementations of Pascal have added extentions to simplify certain opera- 
tions. One of the more common implementations, the UCSD^ implementation, added several 
string functions, byte functions, and 10 intrinsics. The Workstation implementation allows you to 
use the UCSD extensions by including the *UCSD$ compiler option in your program. 

HP Pascal will not provide perfect compatibility with UCSD Pascal or lEM Pascal (HP 9835/9845 
systems). In particular, it isn't possible to directly interpret P-code programs since HP Pascal 
translates programs directly into the native language of the processor. In addition, it is not possible 
to provide complete compatibility due to definition conflicts between UCSD Pascal and HP Pascal. 
Most programs should port easily, but some programmer attention will be required. 

To simplify the conversion of UCSD Pascal programs to HP Pascal programs for the Series 200 
Workstation, the the next section lists many of the UCSD extensions and possible replacements. 



1 "UCSD Pascal" is a tradi'in.irk of the Regents of the University of California. 
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Supported Features of UCSD Pascal 

To use these language extensions, precede the source program text with the $UCSD$ option. HP 
Pascal replacements for these extensions are given where possible. 

b 1 G k r e a d This non-standard predefined integer function transfers data from a disc file to 

an array. 

Examples: 

count := block read ( fi le_id > array_idf riu.(i!_b 1 ocks ) ! 

count := blockreadif ile_id t array.idt nuiii_b locks t block_nufn)i 

count := blockreadtf ile_id t a r ray_i d [ indx ] t 

nuiit-blocks I block_nufTt) ! 

Where file. id is the name of an untyped file, array-id is the name of an 
array, and num-b locks is the number of 512-byte blocks to be transferred. The 
optional block.num parameter specifies the offset (starting with zero) into the 
file where the transfer should start. If blocR_nutii is omitted, the transfer will 
start at the current position in the file window. The optional i n d x parameter 
specifies the first element of the array to be accessed by the transfer. The 
function returns an integer value indicating the actual number of blocks trans- 
ferred. 

Replacement: Recode to use file of buf512 (where: 

bufSlZ = PACKED ARRAYEO.,511] of char). 

b 1 c k w r 1 1 e This non-standard predefined integer function transfers data from an array to a 

disc file. 

Examples: 

count := blockwrite( f i le.id f array_id( nu(ii_b locks ) i 

count := blookwri te ( fl le_id t array_id( nuiri.blocks t block_nuw)i 

count := blockwrite ( f i le_id t ar ray_id[ indx] t 

nuiii-blooKs t blocR_num) i 

Where f ile_id is the name of an untyped file, array.id is the name of an 
array, and nuin.b 1 o o k s is the number of 512-byte blocks to be transferred. The 
optional biock.nutn parameter specifies the offset (starting with zero) into the 
file where the transfer should start. If block.nuin is omitted, the transfer will 
start at the current position in the file window. The optional i n d x parameter 
specifies the first element of the array to be accessed by the transfer. The 
function returns an integer value indicating the actual number of blocks trans- 
ferred. 

Replacement: Recode to use file of buf512 (where: 

buf512 = PACKED ARRAYC0..511] of char). 

CASE In HP Pascal you must add an other WISE clause to a case statement to trap 

illegal selectors. 

In UCSD Pascal, if the selector of a CASE statement doesn't match any of the 
labelled cases, the entire statement is skipped. HP Pascal instead reports error 
-9, "Case statement range error". 
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This problem can be avoided by putting an OTHERWISE clause at the end of 
the case statement: 



close 



Comments 



Compilation Units 



case i of 

1 : ui r i t e 1 n ( ' c a s e 1 ' ) ! 

2 : w r i t e 1 n ( ■■■ a s e 2 ' ) i 
otherwise 

w r i t e 1 n ( ■■■ T h e u a 1 u e of i is ' > i : 5 ) i 
e n d i 

For HP Pascal, the file options LOCK, NORMAL, PURGE, or CRUNCH must be en- 
closed in quotes. 

UCSD Pascal supports the use of nested comments. This feature can be 
supported by HP Pascal by using the compiler's $IF option. 

Comments in UCSD Pascal programs may be delimited by either curly braces 
or parenthesis-asterisk pairs: 

{ this is a Gomment } 
(* and 5 is this *) 

UCSD Pascal requires that the closing delimiter of a comment be the same 
"kind" as the opening one. HP Pascal treats the two kinds of opening (and 
closing) delimiter as synonmyms. 

(♦ this is an HP Pascal coniiiient > 

(* this is all one { UCSD } caiiiment *) 

The last example will get a syntax error in HP Pascal because the curiy brace 
after the word "UCSD" terminates the comment. 

The easiest way to get around nested comments in a UCSD Pascal program is 
to surround the outer comment with conditional compilation options: 

$if false* 

.♦. all of the (iiateral inside Sets skipped ... 
$ e n d $ 

The syntax of UCSD Pascal UNITs can readily be changed into an equivalent MOD- 
ULE for compilation by HP Pascal implementations. The word INTERFACE is re- 
moved. The word USES is replaced by IMPORT. And the other declarations in 
the interface part of the unit are preceded by the word EXPORT. 



unit ioodstuffi 
interface 

uses b a d 5 1 u f f » b e 1 1 e r 5 1 u f f ; 
const 

... (constant declarations) 
type 

... (type declarations) 
Mar 

... ( y a r i a b 1 e declarations) 
procedure p 1 ( a . b : i n t e S e r ) > 
f unct ion f ( x ) : real ! 
i m p 1 e fii e n t a t i n 

e n d . 



Module 3 d s t u f f i 

import b a d s t u f f . b e 1 1 e r s t u f f i 
export 
const 

I * t 

type 

ua r 

procedure p 1 ( a • b : i n t e S e r ) i 
function f ( x ) : real! 
i itt p 1 B III e n t 
. . . 

e n d . 
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Compiler Options The compiler options for UCSD Pascal and HP Pascal differ in syntax. Even if 
you choose not to convert your UCSD Pascal programs to HP Pascal, you 
may still need to convert other UCSD compiler options to HP compiler options 
and include the HP option, *UCSD$, at the beginning of your program. 

AUTOPAGE Use LINES 2000000 to turn off pagination. 

COPYRIGHT Supported. 

DEBUG Supported. 

FL I P The byteflip option is unsupported (irrelevant). 

GOTO Unsupported (GOTO's are always allowed). 

I OCHECK Supported. Also see the try . . recouer language extension. 

INCLUDE Intermixed declarations in INCLUDE are supported. 

LIBRARY Use the $search$ option. 

linesperpage Use the $lines$ option. 

LINEWIDTH Use the $PAGEWIDTH$ option. 

LIST Use LIST <file specification} to replace LIST, LIST ifilsnatne'}, 
and LISTFILE. 

PAGE Supported. 

QUIET Unsupported (irrelevant). 

RANGE Supported. 

SWAP Unsupported. 

TABLE Use $TABLES$. 

TRACE Use $DEBUG$ and use the debugger. 
TRACEPAUSE Use *DEBUG$ and use the debugger. 
USERMODE Unsupported (irrelevant). 
c n c a t This non-standard predefined function concatenates any number of strings. 

Example: 5 1 r_exp := concat (st rl » strZt ... slrn)! 
Replacement: Use the infix + concatenation operator. 

copy This non-standard predefined function returns a string obtained by copying 

from another string, starting at the specified position. 
Example: St r_u a r := COP'/ ( sou rce_st r ! start_Post count); 
Where start.pos and count are integers. 
Replacement: Use the s t r function. 

delete This non-standard predefined procedure removes a specified number of char- 

acters from a string. 

Example: St r_u a r := deIete(source_5trt start-Post count)! 
Where start_pos and count are integers. 
Replacement: Use the s t r d e 1 e t e procedure. 
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exit 



This non-standard predefined procedure is used to alter program flow. 

In UCSD Pascal, the statement EX I T ( p ro o ) causes normal program flow to be 
altered. The current procedure is discontinued, and procedures are exited in 
order (most recently called first) until procedure "proc" is exited. The program 
continues at the next statement after the call on proc. 

This Pascal implementation has no exactly comparable feature; the program 
must be altered. If the EXIT statement occurs within the procedure which is to 
be exited, a simple goto statement will suffice. Otherwise you must use the 
TRY. .RECDUER statement, which is enabled by the *SYSPROG* compiler option. 

The basic technique is to surround with a TRY the entire body of any proce- 
dure which is the target of an EXIT. The EXIT itself is simulated by calling 
ESCAPE with an error code corresponding to the name of the procedure to be 
exited. The target procedure catches this escape in its recovery part and then 
exits normally. 



$ u s d $ 

pros ram UCSDenits ! 

procedure p 1 i 

b e 3 i n 



*sy5Pro3$ 

p r S r am H P t r >•■ r e c o u e r i 

const p.Hitp2 = lOO; exitp3 =101 ! 

procedure p 1 ; 

label i; 

b e 3 i ri 



exit ( p 1 ) i 
e ri d i 



Soto li {simple local exit} 

* t i 

1 : e ri d ; 



procedure p2i 
procedure p3 i 
b e S i ri 



procedure p2 i 
procedure p 3 ? 
b e S i n 
t rv 



e X i I ( p 3 ) i 

* t t 

e K i t ( p 2 ) 1 

i * I 



end; {p3} 
be Sin {p2} 

p3; 



end; {p2} 



e5cape(exitp3) j 

e 5 c a p e ( e X i t p 2 ) i 
t I t 
r B c u e r 

if e s a p e c d B < > e x i t p 3 t h e r 
e5cape(e5capecode) i 
end; { p 3 > 
be Sin {p2} 
t ry 

p3; 
r e c u e r 

if escapecode <> exitp2 then 
e5cape(esoapecode) i 
end! { p 2 } 



b e S i n { m a i n > 

pl ; 

p2; 
end. 



b e 3 i n { III a i n } 

Pl ; 
p2i 
e n d . 



Replacement: This procedure can be simulated by the TRY.. RECOVER 
statement. 
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external Support: The external directive is supported. Refer to the user manuals for 

information on using the external directive. 

Files UCSD Pascal doesn't prevent writing to a file which was opened for reading 

(using RESET). The converse is also true. If you get lO error 24, 25 or 26, the 
file should have been opened using the HP Pascal standard procedure OPEN. 

UCSD Pascal's random access mechanism (SEEK) considers that the first 
component of a file is number zero. HP Pascal considers that files begin with 
component number one. The $UCSD$ option does not fix this problem. 

UCSD Pascal recognizes a text file type called INTERACTiyE, which differs from 
files of type TEXT in that a component of the file isn't fetched until it is needed. 
All HP Pascal text files exhibit this "lazy 10" behavior, so you should change 
INTERACTIVE files to files of type TEXT. 

See Workstation Files near the end of this appendix for more information on 
files. 

f i 1 1 c h a r This non-standard predefined procedure fills a range of memory with a speci- 

fied value. 

Example: fi 1 Ichari uariable t count > character); 

Where uanahle may be any type except file, count is an integer expression, 

and h a r a c t e r is of type char. 

Replacement: Recode the program using a FOR loop, byte stream fill support. 

30 tony This non-standard predefined procedure positions the cursor on the system 

terminal. 

Example: 3 o t o x >- ( o o 1 umn » r o w ) ; 

Replacement: There is no direct replacement for sotoxy in HP Pascal. On the 
Workstation, your program can IMPORT the file-system module (FS) to access 
the f sotoxy procedure to achieve the same effect. 

halt This non-standard procedure terminates the execution of a program. 

Example: halt; 

The halt procedure, with differing syntax, is supported in HP Pascal. 

Heap Procedures See Heap Management near the end of this appendix for information on heap 
procedures. 

insert This non-standard predefined procedure inserts a string into another string, at 

a specified location. 

Example: insert(source_strt de5t_5trt index)! 

Where source_str and dest.str are string expressions and index is an in- 
teger. 

Replacement: Use the st rinse rt procedure. 

INTERACTIVE This file type specifier is disallowed in HP Pascal but the behavior is provided 

by the TEXT file type. 



336 Workstation 



Integers 



i r e 5 u. 1 1 



1 e n 3 1 h 



lo 3 



Long Integers 

III e m a u a 1 1 
III u e 1 e f t 



iti u p r 1 S h t 



Multiword Com- 
parisons 



POS 



HP Pascal integers use 32 bits. You may declare a 16-bit subrange. 
Example: 



TYPE 
i n 1 1 G 



-32788, .32767! 



Program Heading 



This non-standard predefined function returns tfie result of the last I/O opera- 
tion. The result value differs for UCSD Pascal and HP Pascal. 

This non-standard predefined function returns the length of a string. 

Example: i n t _ i.i -a r : = length ( s t r _ e x p ) ; 

Replacement: Use s t r 1 e n and s e t s trie n . 

This non-standard predefined real function returns the decimal logarithm of its 
parameter. 

The 1 i function is not supported in HP Pascal. 

Replacement: The natural log function. In, is supported. Note that 

lo3(x) = li-i(»)/ln(10). 

Long BCD integers up to 36 digits are not supported by HP Pascal. 

This heapspace interrogation function returns the size in bytes, not words. 

This non-standard predefined procedure moves a specified number of bytes, 
starting with the leftmost byte, to a new location. 

Example: m o u e l e f t ( s o u r c p _ u a r • d e s t _ u a r • c o u. n t ) i 

Where source_var and dest.uar are variables of any type except file. The 
count is an integer expression. 

Replacement: Recode the program using a FOR loop. 

This non-standard predefined procedure moves a specified number of bytes, 
starting with the rightmost byte, to a new location. 

Example: w o u e r i S h t ( s o u r c e _ u a r • d e s t _ u a r * o o u n t ) i 

Where source_var and dest_uar are variables of any type except file. The 
cQunt is an integer expression. 

Replacement: Recode the program using a FOR loop. 

The multiword comparisons of arrays and records are not supported. 

This non-standard predefined function returns the position of the first occurr- 
ence of a substring within a string. 

Example: i n t _ u a r : = p o s ( p a 1 1 e r n „ s t r _ e .x p t s o u r c e _ s t r _ e x p ) i 

Replacement: Use strpos. Note that the parameters are reversed from 

St rpos. 

A program heading without listing the standard files (i.e input, output) is 
supported when the $UCSD$ option is enabled. 

Replacement: Include the standard files in the program heading. 
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PWRDFTEN 



Reals 



SEGMENT 



Sets 



SIZEOF 



Standard Units 



sir 



This non-standard predefined real procedure returns the value of integer pow- 
ers of ten. 

This function is not supported. 
Replacement: Use exponentiation. 

This implementation of HP Pascal uses the same internal representation for 
both real and lonsreal types (64-bits). 32-bit reals are not supported. 

This non-standard predefined function scans a specified section of memory for 

a specific byte. 

Examples: 

scan (count ! = chr_exp( te5t_uar)i 

scan ( coLiiU ( <> ohr_exPt test_Mar)i 
Wiiere count is the number of bytes to scan, ch r_exF is an expression which 
evaluates to a character, and test.uar is any variable except a file variable. 
The scan can either match a character ( = ) or not match a character (< >). 

Replacement: Recode the program using a FOR loop. 

This non-standard predefined procedure positions the file window in an arbit- 
rary place. 

Example: s e e k ( f 1 1 e _ u a r t i n d x ) i 

Where file_uar is a file variable of a file that was opened using the open 
procedure, and indx is the index of the desired component of the file. In HP 
Pascal the first component's index is one (1), while in UCSD Pascal, the first 
component's index is zero (0). 

UCSD SEGMENT procedures are not supported by HP Pascal. 

Either the entire program must be resident or the segmentation procedures 

supplied with the Series 200 Workstation must be used. 

UCSD Pascal supports sets with up to 4096 elements. HP Pascal sets are 
limited to 255 elements. 

This non-standard predefined integer function returns the number of bytes 

that a variable uses in memory. 

Examples: 

nu.(ii_b/tes := s i zeof ( t !'pe_i d ) i 

nuiii-bvtes := s i zeo f ( ua r_i d ) i 
Where type_id is a type identifier, and uar.id is a particular variable. 
Support: This function is supported when system programming language 
extensions are enabled. (The $BYSPRDG$ compiler option is enabled.) 

The standard units: PRINTER, CONSOLE, and SYSTERM are supported. See Work- 
station Files near the end of this appendix for more information. 

This non-standard predefined procedure converts an integer or long integer 

into a string. 

Example: s t r ( i n t _ u a r » s t r _ u a r ) \ 

Where i n t _ u a r is an integer variable, and s t r _ u a r is a string variable. 

Replacement: HP Pascal has the more general procedure strwrite. Note: 

HP Pascal uses this identifier for its "string copy" procedure. 
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Strings 



HP Pascal supports most of the string features available in UCSD Pascal. In 
UCSD Pascal, the declaration uar s: s t r i n s is equivalent to 
u a r 5 : s t r i n s [ 80 ] . HP Pascal requires the length specifier. 

A similar comment applies to strings value parameters; the specifier s t r i n ? is 
equivalent to the name of an 80-character string type, whereas HP Pascal 
requires an explicit string typename specifier for value parameters. 

UCSD Pascal considers that all strings are compatible as VAR parameters, 
even if the actual parameter is shorter than the specified formal parameter. 
This can lead to unexpected bugs. HP Pascal allows two forms of VAR string 
parameter. If a string typename is used, only another string of identical type 
may be passed. If the specifier s t r i n 3 is used, any string may be passed. In the 
latter case, however, an "invisible" second parameter is also passed, giving 
the maximum length of the actual parameter. Thus range checking can be 
performed. 

Replacement: In HP Pascal, use the s e t s t r l e n procedure to set the string 
length. 

Example: TYPE s = st rinSEinaxlenith] 

The maximum string length is 255 characters. 



program UCSDst rin Ss i 
type 

5 1 r i n J 1 5 = s t r i n S [ 1 5 ] i 



uar 
si 
s2 
s3 



5 1 r i n 3 i 

5 1 r i n S [ 1 5 ] i 

strinSEBO] ; 



prosram HPst rinSs j 
type 

s t r i n 3 1 5 = 5 1 r i n 3 [ 1 5 3 I 

St rinSBO = st riniCSO] I 
uar 

si: St rin 380! 

s 2 ! s t r i n 3 1 5 i 

53: 5triri3[80]; 



procedure p1 (s: stririS)! 

procedure p2 (s: striri3l5)i 

t t * 

procedure p3 (uar s: striri3)i 



procedure p1 (s: st rin 380)! 

* t i 

procedure p I b ( s : s t r i n 3 ) i { i 1 1 e 3 a 1 } 

t 4 t 

procedure p2 (s: st rin3l5) i 

procedure p3 !uar s: strin3)i 



procedure p4 (uar s: strinSlS)! procedure p4 (uar s: strin3l5)i 

+ * + I ♦ + 

procedure p5 (uar s: 5trin3B0)i 



b e 3 i n 
pl(sl) 
p2(s1) 
p3(s1) 
p3(s2) 
pa(sl) 
p4(s2) 



end. 



{Ie3al} 
{ 1 e 3.a 1 } 
{le3al} 
{lesal} 
{le3al} 
{le3al} 



b e 3 i n 
pl(sl) 
p2(s1) 
p3(s1) 
p3(s2) 
pa(sl) 
pa(s2) 
p5(s1) 
p5(s3) 

end. 



{Ie3al} 

{le3al} 

{leSaU 

{lesal} 

{ille3al} 

{le3al} 

{le3al> 

{ille3al} 
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time This non-standard procedure or function returns the value of the system's 

real-time clock. 

To read the clock, IMPORT the SYSDEi.'S OR KBD module and use the syscloch 
procedures and functions. 

Type Checking HP Pascal enforces stricter compatibility rules than UCSD Pascal. HP Pascal 

generally requires that types be identical or equivalent where UCSD Pascal 
will accept mere similarity of form. 

proiraiii UCSDi sn ot Pi oky ; program HPispicKyi 

type type 

complex = record codipleK = record 

r e . i (ii : r e a 1 r e t i m : r e a 1 

end! endi 

polar= record polar= record 

rftheta:real Dtheta: real 

end; e n d i 

roundly = polar! 
u a r war 

a:co(iiplex! aicomplex! 

bipolar! bipolar! 

: r ij n d 1 y ! 
b e J i n b e 3 i n 

a : = b i { 1 e S a 1 } a : = b ! { i 1 1 e J a 1 > 

o:=b! {leial} 
p n d . e " d . 

A UCSD Pascal UNIT is functionally a subset of a HP Pascal MODULE. The 
syntax a little different. 

iin i t b u s y This non-standard predefined function tests if an I/O device is busy. 

Example : d e u _ b u sv : = u n i t b u s y ( u n i t _ n u in ) ! 

Where un i t_n <m is an integer expression which evaluates to a valid unit num- 
ber in the unit-table, and deu.busy is a boolean. The function returns true is 
the device is busy. 

un i 1 1 e a r This non-standard predefined procedure resets an I/O device. 

Example: unitclearCunit-num) ! 

Where unit.nuin is an integer expression which evaluates to a valid unit num- 
ber in the unit-table. 

This operation sets the value of i o r e s u 1 1 . 

un i t re ad This non-standard predefined procedure performs low-level input operations 

on various devices. 

Examples: 

unit read {unit_nuiii ( store-arrayi count)! 

unit read {unit_nu(ri t 5tore_arrayi count* blocK_num)! 

unit read ( un it_nuiti t 5tore_array) countt blocK_nuii)t async)! 

un i t read ( uni t_nu(ti t st o re_a r ray C indx ] » countt block_nuffl( async)! 



UNIT 
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urn twai t 



urn tw rite 



Untyped Files 



Where uriit.num is the integer identifer of the unit in the unit-table, 
sto re_array is a packed array in which the data will be stored, and the count 
is the number of bytes to be read. 

The optional parameter bloc f; _ri um is required for block-structured devices and 
indicates which block is read. The default is zero. When the optional boolean 
a sync parameter is true, the transfer is made asynchronously. The default is 
false. 

When specified, the iridx of the storage array indicates the first element of the 
array to recieve data. 

This non-standard predefined procedure waits until an 1/0 operation is 
finished. 

Example: u n i t w a i t ( u n i t _ n u m ) i 

Where un i t.num is an integer expression which evaluates to a valid unit num- 
ber in the unit-table. 

This non-standard predefined procedure performs low-level output operations 
on various devices. 

Examples: 

uri i twn te ( un i t_riU(ti t sto re_a r rav » count) i 

uni turite ( uni t_num t store_array> count- bl ock.num ) i 

uni tuiri te ( uni t_nu(it J s t o re_a r ray t count- block_nu(iit asyncii 

unilwri te ( unit_nu(iw s t o re_a r ray [ i ndx ] » count; b 1 oc f;-.n uiu . async)! 

Where unit_nu(ii is the integer identifer of the unit in the unit-table, 
sto re -array is a packed array containing the available data, and the count is 
the number of bytes to be written. 

The optional parameter block, n um is required for block-structured devices and 
indicates which block is written. The default is zero. When the optional boo- 
lean async parameter is true, the transfer is made asynchronously. The default 
is false. 

When specified, the i n d x of the storage array indicates the first element of the 
array in which data is available. 

Untyped files are supported with the *UCSD$ option. Untyped files do not have 
an associated buffer variable. 

Example: y a r u n _ f i l e : file! 
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System Programming Language Extensions 

Eight extensions to HP Pascal have been provided to support machine-dependent programming 
and give users better control over (or access to) the hardware. 

1. Error Trapping and Simulation 

2. Absolute Addressing of Variables 

3. Relaxed Typechecking of VAR Parameters 

4. The ANYPTR Type 

5. Procedure Variables and the Standard Procedure CALL 

6. Determining the Absolute Address of a Variable 

7. Determining the Size of Variables and Types 

8. The lORESULT Function 

These extensions may be used in any compilation which includes the tSYSPROG ON* option at the 
beginning of the text. 

The extensions may not be supported by other HP Pascal implementations. The Compiler displays 
a warning message at the end of compilation when they are enabled. 

Error Trapping and Simulation 

The TRY-F?ECOVER statement and the standard function ESCAPECODE have been added to 
allow programmatic trapping of errors. The standard procedure ESCAPE has been added to allow 
the generation of soft (simulated) errors. 

try 

< s t a t e til e n t > i 

< s t a t e III e n t > i 

I * (■ 

< s t a t e (ii e n t > 
r e c M e r 

< 5 1 a t e m e nt > 

When TRY is executed, certain information about the state of the program is recorded in a marker 
called the recover-block, which is pushed on the program's stack. The recover-block includes the 
location of the corresponding RECOVER statement, the height of the program stack, and the 
location of the previous recover-block if one is active. The address of the recover-block is saved, 
then the statements following TRY are executed in sequence. If none of them causes an enror, the 
RECOVER is reached, its statement is skipped, and the recover-block is popped off the stack. 

But if an error occurs, the stack is restored to the state indicated by the most recent recover-block. 
Files are closed, and other cleanup takes place during this process. If the TRY was itself nested 
within another one, or within procedures called while a TRY was active, that previous recover-block 
becomes the active one. Then the statement following RECOVER is executed. Thus the nesting of 
TRYs is dynamic, according to calling sequence, not statically structured like nonlocal goto's which 
can only reach labels declared in containing scopes. 
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The recovery process does not "undo" the computational effects of statements executed between 
TRY and the error. The error simply aborts the computation, and the program continues with the 
RECOVER statement. 

When an error has been caught, the function ESCAPECODE can be called to get the number of 
the error. ESCAPECODE has no parameters. It returns an integer error number selected from the 
error code table. System error numbers are always negative. 

The programmer can simulate errors by calling the standard procedure ESCAPE(n). which sets the 
error code to n and starts the error sequence. By convention, programmed errors have numbers 
greater than zero. If an ESCAPE is not caught by a recover-block within the program, it will be 
reported as an error by the Operating System. Negative values are reported as standard system 
error messages, and positive values are reported as a halt code value. Note that HALT(n) is exactly 
the same as ESCAPE(n). 

TRY-RECOVER statements are usually structured in the following "canonical" fashion: 

t r Y 

( I t t 

r e c u e r 

if e 5 G a p e c d e = ( ui h a t e u e r you want to catch ) 
then 
b e S i n 

{ r e c u e r '/ s e q u e n c e } 
e n d 
else 

escapetescapecode) ; 

This has the effect of ensuring that errors you don't want to handle get passed on out to the next 
recover-block, and eventually to the system. All programs which are executed are first surrounded 
by the Command interpreter with a try-recover sequence. The recovery action for the system is to 
display an error message. 

Absolute Addressing of Variables 

A variable may be declared as located at an absolute or symbolically named address: 

uar ioport [illBOOOl: char! 

assefflbl ysyiiibol [ ' asfii_e xt e rn al _ria(iie ' ] : in tese r i 

Each variable named in a declaration may be followed by a bracketed address specifier. An integer 
constant specifier gives the absolute address of the variable; this is useful for addressing 10 interface 
hardware. A quoted string literal gives the name of a load-time symbol which will be taken as the 
location of the variable: such a symbol must be defined (DEFed) by an assembly-language module 
which will be loaded with the program. 

Relaxed Typechecking of VAR Parameters 

The ANYVAR parameter specifier in a function or procedure heading relaxes type compatibility 
checking when the routine is called. This is sometimes useful to allow libraries to act on a general 
class of objects. For instance an 1/0 routine may be able to enter or output an array of arbitrary size. 
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t Y p e 

b Li f f e r = a r r a ■/ [ . . m a x i n t ] o f c h a r i 
y a r 

al : array [2. .501 of char ! 

a2: array [0. .991 of char ! 

procedure out put^hpi b ( anyua r ary:buffer; 1 o bound >h i bound : in t e 3e r ) ! 



u t p u t .. h p i h ( a 1 f Z i 5 ) ? 
outPUt_hpib (a2 .0 (99) ; 

ANYVAR parameters are passed by reference, not by value: that is. the address of the variable is 
passed. Within the procedure, the variable is treated as being of the type specified in the heading. 

This can be very dangerous! For instance, if an array of 10 elements is passed as an ANYVAR 
paramter which was declared to be an array of 100 elements, an error will very likely occur. The 
called routine has no way to know what you actually passed, except perhaps by means of other 
parameters as in the example above. ANYVAR should only be used when it's absolutely required, 
since it defeats the Compiler's normal type safety rules. 

Programs calling routines with ANYVAR parameters should be very thoroughly debugged. Care- 
less use of this feature can crash your system. 

The ANYPTR Type 

Another way to defeat type checking is with the non-standard type ANYPTR. This is a pointer type 
which is assigment-compatible with all other pointers, just like the constant NIL. However, variables 
of type ANYPTR are not bound to a base type, so they can't be dereferenced. They may only be 
assigned or compared to other pointers. Passing as a value parameter is a form of assignment. 

t y p e 

p 1 = ■ i n t e 3 e r i 
p2 = ■'■ rec rd 

f 1 I f 2 : real; 
e n d ; 
u a r 

M 1 ( u 1 a : p 1 ; y 2 : p 2 i 
a n y u : a n y p t r i 
which: (typel'type2)! 
b e S i n 

n e w ( u 1 ) ! n e w ( u 2 ) i 

if ... then 

b e 3 i n an y u : = u 1 i which :- t y p e 1 e n d 
else 

beiin anyu := u2i which := typp2 end! 

if which - t y p e 1 then 
b e 3 i n 

Mia : = a n y m i 
i.i la' : = u 1 a ■■ + 1 \ 
e ri d ! 
e n d ; 
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This can be very dangerous! The Compiler has no way to know if ANYPTR tricks were used to put 
a value into a normal pointer. If a pointer type which is bound to a small object has its value tricked 
into a pointer bound to a large object, subsequent assignment statements which dereference the 
tricked pointer may destroy the contents of adjacent memory locations. 

Careless use of ANYPTR can crash your system. Programs using this feature must be very thor- 
oughly debugged. 

Determining the Absolute Address of a Variable 

p : = a d d r I 1 1 a r 1 a b 1 e ) i 

p := add r ( ua r 1 ah 1 e tof f 5-p t J i 

The ADDR function returns the address of a variable in memory as a value of type ANYPTR. It 
accepts, as an optional second parameter, an integer "offset" expression which will be added to the 
address: this has the effect of pointing "offset" bytes away from where the variable begins in 
memory. ADDR is primarily used for building or scanning data structures whose shapes are defined 
at run-time rather than by normal Pascal declarations. 

The ADDR function is very dangerous! It has the same dangers described above for ANYPTRs, in 
addition to some of its own. Use of the "offset" can produce a pointer to almost anywhere, with 
concommitant dangers to the integrity of system memory. 

Never use ADDR to create pointers to the local variables of a procedure or function. Storage for 
local variables is recovered when the routine exits, so the value returned by ADDR is ephemeral. 

Careless use of the pointers returned by ADDR can crash your system. Programs using this feature 
must be very carefully debugged. 

Procedure Variables and the Standard Procedure CALL 

Sometimes it is desirable to store in a variable the name of a procedure, and then later to call that 
procedure. For instance, the system "Unittable" is an array which contains the name of the driver 
to be called to perform 10 on each logical volume. 

A variable of this sort is called a "procedure variable". The "type" of a procedure variable is a 
description of the parameter list it requires. That is, a procedure variable is bound to a particular 
procedure heading. 

t Y p e p r u c u a r = p r o c e d u. re ( o p : i n t e 3 e r ) i 
u a r p : p r o c u a r ! 

procedure i ( op : i n t e se r ) ! {identically structured parameter list) 

p : = =1 ' -[ p S e t s t h e n a m e of q ! in e f feet p p o i n t s to q > 

callip.i); -Cnadie of proc uariablei then appropriate paraffieter list} 

A procedure variable is "called" by the standard procedure CALL, which takes the procedure 
variable as its first parameter, and a further list of parameters just as they would be passed to a real 
procedure having the corresponding specification. 



Workstation 345 



It is not possible to create a "function variable", that is, a variable which can hold the name of a 
function. 

Don't assign the name of an inner (non-global) procedure to a procedure variable which isn't 
declared in the same block as the procedure being assigned. Such a variable might be called later, 
after exiting the scope in which the procedure was declared. The appropriate static link would be 
missing, yielding unpredictable results. See "How Pascal Programs Use the Stack", at the end of 
this chapter, for an explanation of static links. 

Determining the Size of Variables and Types 

The size (in bytes) of a type or variable can be determined by the SIZEOF function. This also is 
enabled by the $UCSD$ option. 

n : = s i I e f ( i.j a r 1 a b 1 e ) i 
n : = 5 i z e f ( t v p e n a tit e ) i 

If the variable or type is a record with variants, an optional list of tagfield constants may follow the 
parameter. This works like the standard Pascal procedure NEW: 

n : = s i z e f ( u a r r e • t r u. e • b 1 u e ) ! 

SIZEOF is not really a function, although it looks like one: it is actually a form of compile-time 
constant. 

Memory Allocation for Pascal Variables 

Here is a list of storage allocations for common Pascal data types. 

TYPE Allocation 

boolean: One byte, 0-false 1-true 

character: One byte, ASCII character values thru 255 

E n u ill e r a t. e d scalar: Two bytes, unsigned. 

1 r, t e se r: Four bytes signed, -2147483648 to 2147483647 

1 n 3 r e a 1 : Eight bytes, approximate range is: 

±1.1797693134862315L + 308 thru ±2.225073858507202L-308 

Pointer: Four bytes containing 24-bit logical address. 

Procedure: Eight bytes containing address and static nesting information. 

real: Same as longreal. 

SET: Two bytes of length plus multiples of 2 bytes to contain possible elements 

which require 1 bit each to a maximum of 256 elements. 

St r 1 n s: One byte of length field plus up to 255 bytes 

Bub ran 3e: Two bytes if maximum and minimum values are in [.02332768.. 32767]. 



346 Workstation 



The lORESULT Function 

Normally the Compiler emits instructions after each 10 statement to verify that the transaction 
completed properly. If it fails, the program is terminated with an error report. 

It is possible to trap 10 errors programmatically, using the TRY-RECOVER statement. The system 
function lORESULT can then be called to discover what went wrong with the transaction. 

lO Checks and Results 

Normally the Compiler emits instructions after each 10 transaction to verify that the transaction 
completed properly. If it didn't, the program is terminated with an error report. The error code for 
all lO errors is -10. 

You may wish to intercept 10 errors programmatically rather than have them terminate the prog- 
ram. This can be done two different ways. The program or module must be compiled with the 
$SYSPROG$ or $UCSD$ Compiler option at the front of the source text. These options both make 
available a system function called lORESULT which returns an integer value reporting on the 
success of the most recent 10 transaction. A result of zero indicates a successful transaction; other 
values are given in the list below. 

Method 1. This method is the preferred one. Compile the program or module with $SYSPROG$ 
enabled, and use the TRY-RECOVER statement to trap the errors. 

$sysproi$ 

p r 9 r a III t r a p m e t h o d ( i n p u t * o u t p u t .) ! 

i.i a r 

ri a m e : s t r i n 3 [ 8 ] i 
f : t e ;u i 
1 r : i n I e S e r ! 
b e S i n 
repeat 

ui r 1 1 e ( ' D p B n what file ? ' ) i 
r e a d 1 n ( s ) i 
t ry 

r e s e t ( f t s + ' 1 1 e X t ' ) ! 

i r : = ! ( * i f we Jet here, it didn't fail*) 
recover 

if e5capecode = -10 then (*it'5 an 10 error*) 
b e 3 i n 

i r : = i r e s u 1 1 ! ( * s a u e it! will be affected b ? write stmt*) 
w r i t e 1 n ( ■' C a n ' ' t open it. 1 r e s u 1 1 = ' • i o r ) i 
e n d 
else 

escape (escapecode) i 
until i D r = i 
end. 
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Method 2. This method is used in UCSD Pascal programs. For it to work, you must also suppress 
the error checks normally emitted by the Compiler. 

*u.osd* 

Fro 3 ram ucsdmetliod ( input ,out put ) i 
u a r 

name : st rin SCBO] i 
f : text) 
ior: inteser! 
b e S 1 n 
repeat 

I...I r i t e ( ' p e n what file ? ' ) ! 
r e a d 1 n ( s ) ! 
$iocheoK off$ 
reset(f'5+'.teKt'); 
$ 1 D c h e c k n $ 

ior : = i r e s u 1 1 ! ( ♦ s a u e i t i will be affected by write 5 1 in t # ) 

if ior < > the n 

writelni, ' Can''t open it. lOresult ='»ior); 
until ior = i 
e n d . 

The values returned by the lORESULT function are listed in the Error Messages section at the end of 
this appendix. 
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Workstation Files 

The file system is covered in detail in the section describing the Filer (file manager) in the user's 
manual. The abbreviated discussion provided here explains how the connection is made between 
physical files and Pascal file variables. 

A physical file is identified by a file specification, which tells what volume the file is on, and further 
gives the name of the file if the volume is one with a directory. A logical file is simply a file-structured 
variable declared in a Pascal program. A file variable is associated with a particular physical file 
when the file is opened by a call to one of the standard procedures RESET, REWRITE or OPEN. 

Syntax of Physical File Names 

A file specification is a string literal or expression which conforms to the following syntax: 



~'\*J ^ ^^VV"*' P'^^'^word — */>) ' 



vol ume 
name 



^^^ 



■<2> 



directory 
name 



file 
name 



^^ 



^~*\<) — ^ password — •\>) ^ ^*\0~1 — ^ 



number of 
blocks 



-©■ 



cs_[-I-M 

I ' 



G^ 



Item 




Description/Default 






Range 
Restrictions 


unit number 


integer; 
table 


corresponding 


to an 


entry in 


the 


unit 


1 thru 50 


volume name 


literal 












any legal volume name 


password 


literal 












any legal password 


directory name 


literal 












any legal SRM directory 
name 


file name 


literal 












any legal file name 


number of blocks 


integer 












any legal number of 
blocks 
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The file specifier is a name, one to nine characters long (ten characters if there is no suffix). If you 
are using a Shared Resource Management (SRM) file system, the file specifier is one to sixteen 
charcters long including the suffix. See the list of allowable characters below. If the volume specified 
is an unblocked volume (like PRINTER), which has no directory, the file specifier is ignored. 

The file name may end in one of three reserved suffixes: 

.TEXT denotes a Pascal text file; usually created by the Editor. 

, CODE denotes an executable code file. 

.BAD denotes a file spanning a failed region of the mass storage medium. 

A file whose name doesn't end in one of these suffixes is generically called a "data" file. 

The size is used when creating a new file. If it is omitted, the file is created in the largest unused area 
on the volume. The asterisk syntax allocates either the second largest free area, or half of the 
largest, whichever is bigger. If a specific size is given, the integer indicates how many 512-byte 
blocks will be allocated to the file. The size must be at least two blocks, and can't be bigger than the 
largest free area in the volume. No volume can exceed 32767 blocks, so no file may be bigger than 
16,776,704 bytes. 

Characters Allowed in Volume and File Names 

When specifying file names, letter case is important! The file named irif o is not the same as the file 
named INFO. Also, a file named stuff. text will be saved as stuff .TEXT, that is, the suffix will be 
converted by the file system to its uppercase equivalent. 

Note 

Only the HP Pascal 1.0 Workstation converted all lowercase alphabetic 
characters to uppercase. 



All characters are allowed in names except: control characters (those with ordinal value less than 
32), blank" ", sharp "«", asterisk"*", comma"*", colon ":", equals "=", question mark "?", left 
bracket "[", right bracket "]", and del (ordinal 127). 



350 Workstation 



Examples of File Specifications 

These examples assume the following variable specifications. 

liar t : text! 

c : file of char! 
f : file of integer! 

resetd »'hiYTEKT.TEXT') ; The .TEXT suffix must he specified, even though t is de- 

clared as a textfile. The suffix is part of the name! The file is 
on the default volume. 

r e s e t ( c » ' M YTEKT ' ) i This is a data file on the default volume. 

rsset ( c t ' :MYTEKT ) i Same as previous one. An empty volume name is assumed 

to precede the colon. 

r e s e t ( t r * JUNK . TEXT ) : The file is on the system volume. The colon is optional for a 

* volume specifier, 

resettt . 'MYi,'OL:llINE.TEXT' ) ; The file is on the volume labelled MYUOL, wherever that 

might be found. 

re s e t ( I » '■ tte : M I NE . TEXT ' ) ; The file is on whatever volume is presently in unit #8. 

r B s e t ( t . ' s Y S T E R M : ' ) ! Open the keyboard for input. 

rewrited .'PRINTER: ') ; Open the unblocked volume PRINTER for output. 

reurited . 'CONSOLE: ') i Open the CRT volume for output. 



rewrite ( t f '*G: ') ; 



Open logical unit #6 for output. The system printer is #6 by 
convention. 



r e w r i t e { t . ' #G ' ) i The colon is optional. 

rewriteif ,'#JUNK ') i Open a data file called JUNK on the system volume. Allo- 

cate the largest free area to this file. 

rewnted , 'MINE.TEXTE*] ') i Open a text file on the default volume; allocate it half the 

largest free area. 

r e w r 1 1 e { f , ' JUNK [ 50 ] ' ) : Open a data file of 50 blocks. 

pen ( f ) i The file is opened for both reading and writing. The system 

will generate a dummy name for it. 

Disposition of Files Upon Closing 

When a file is closed, its disposition depends on the second parameter to the CLOSE standard 
procedure. 

cl s e ( f . ' s A'.'E ' ) The file is made permanent in the volume directory. 

c 1 s e ( f » ' LOCK ' ) Same as s AUE. 

c 1 5 e { f . ' NORMAL ) If the file is already permanent, it remains in the directory. Otherwise it is 

removed. 

ciose(f) Same as 'NORMAL'. 

c 1 s e ( f t ' PURGE ' ) i If the file was permanent, it is removed from the directory. 
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Standard Files and the Program Heading 

There are four standard files which, if used by your program, are automatically opened when the 
program starts. Any of these files which is used must be listed in the program heading. No other files 
should be listed in the heading. 

All the standard files are text files. 

I NPUT The default file for read statements is the keyboard. Characters are echoed to the CRT 

at the current cursor position as they are read. 

KEYBOARD This file also reads from the keyboard, but characters are not echoed as they are read. 
The keystrokes are read straight through, and editing is not enabled. 

OUTPUT The default file for write statements. Characters are written to the CRT. 

L I ST I NG The default printer file: automatically opened to volume 'PRINTER:' . 



Note 

The files INPUT and OUTPUT must nof be redeclared in the program, 
while the files KEYBOARD and LISTING must he declared as type TEXT. 
Do not explicitly close, reset or rewrite any of these system files. If 
they are ever closed, the Initialize command on the main command 
interpreter prompt will re-open them. 



Standard Files Example 

program u, s e _ t h e iit_ a 11 ( i n p u, t • o u t p u t > K e y board • 11 s 1 1 n S ) i 
u a r 

5 : St rinSLSO] i 
If: text; 
b e 3 i n 

rewrite ( 1p t 'PRINTER: ' ) i 

readlri(s); '' * from Keyboard? echoes to CRT *) 

wri teln ( s ) ; (♦ to the CRT *) 

readlniKEYBOARD ts) i (* not echoed ♦) 

writeln(LISTING.s) ; (* 3oes to the pr-inter *) 

w r 1 1 e 1 n (1 p I 5 ) i ( ♦ s o d o e s t h i s * ) 

e n d , 

File Systenm Differences 

To allow for the fact that different computers provide different underiying operating system support, 
HP Pascal allows certain variations in the parameters passed to the standard procedures for 
opening and closing files. These parameters appear as strings passed to the standard procedures; it 
is their content which may vary. For instance, the file naming conventions are very different in 
different operating systems. Such variations may require minor changes in a program if it is moved 
to a type of computer different from the one on which it was developed. 

When a file is open, its behavior in performing the input and output operations of HP Pascal should 
be the same in all implementations. 
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Heap Management 

The "heap" is the area of memory from which so-called dynamic variables are allocated by the 
standard procedure NEW. When a program begins running, it has available one area of memory 
for data. The program's stack begins at the high-address end of this area and grows downward; the 
heap begins at the low-address end and grows upward. If the stack and heap collide, a Stack 
Overflow error (escapecode -2) is reported. 

Two regimes are available for the recovery of heap variables after they become unwanted: the 
MARK/RELEASE method, and the DISPOSE method. The first is simpler and faster, the second 
more general. 

MARK and RELEASE 

This method uses two standard procedures to manage the heap in a purely stack-like fashion. 
MARK is called to set a pointer to the next available byte at the top of the heap. Subsequent calls to 
NEW will all take space from above this point. When the program finishes with all the variables 
above the mark, RELEASE is called to move the top of the heap (the next available space) back to 
the value saved by MARK. 

P r S r a m m a r k r e 1 e a s e i 
t y p e 

p t r = re c ! 
rec = record 

f 1 .* f 2 : i Ti t. e 3 e r i 
e n d ! 
'J a r 

1 p ! p : p t r i 
1 : integer; 
b e 3 1 Ti 

ill a r K ( t p ) ! ( * re in e m b e r t he base o f t h e heap * ) 

repeat 

for 1 := 1 to 5000 do 
b e 3 i n 

1"! e w ! p ' i ( * allocate f r o m n e «: t h i 3 h e s t h e a p a d ij r ess * ) 

e n d i 

r e 1 e a s e ( t n p ) i ( ♦ c u. t b a c K t h e heap! re c o u e r all s p a c e ♦ ) 

until false! ( * p r o 3 r a m i.i ill r u n fore u e r * ) 
e n d . 

When using this method, the computer does not prevent you from making the mistake of releasing 
to a point above the current top-of-heap! 

NEW and DISPOSE 

Alternatively, the standard procedure DISPOSE can be used to return each unwanted dynamic 
variable back to a pool of free space. 

Calls to DISPOSE will have no effect (the freed storage will not be reused) unless the main 
program and the modules containing the NEW and DISPOSE calls are compiled with the 
option $HEAP_DISPOSE 0N$ . 

p r 3 r a III disposal! 
type 

P t r = '" rec! 
rec = record 

n e X t : p t r ! 
f 1 ! f 2 : i n t e 3 e r ! 
e n d i 
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ua r 

top.p.root: Ptri 
i : 1 n t e 3 e r ; 
b e 3 1 n 

III a r k ( 1 p ) ! {* remember the base of the heap * ) 
repeat 

root : = nil! 
for i := 1 to 5000 do 
b e 3 i 11 

Ti e w ( p ) i ( * after disposes, will allocate from free list * ) 
p " . n e X t : = root! root ; = p ! ( * chain all cells together * ) 

p n d ; 

repeat ( * 3 i y e back all cells one at a time # ) 

p : = root ! 

root : = r 1 ■■■ . n e X t ; ( * follow the chain * ) 

d i 3 p s B ( p ) ! ( # mem m a n a 3 e r puts on a free list * ) 
until root = nil! 
until false i (# program will run foreuer ♦) 

e n d . 

The recycling algorithm takes advantage of the fact that programs which use the heap operate on a 
great many variables of just a few types. Each type has a characteristic size. When a variable is 
disposed, it is saved at the front of a list of other variables of the same size. When a variable is 
allocated, the NEW routine first looks on the list corresponding to the size required; if there is a free 
object there, it can be allocated immediately. Usually there will be very little computational over- 
head for either NEW or DISPOSE. 

The memory manager maintains free lists for objects of sizes 4. 6, 8, ... 32 bytes, and one more list 
for all larger objects. Objects are allocated from this last list on a first-fit basis. No dynamic variable is 
ever allocated an odd number of bytes. 

It is possible for the program to behave so that the heap becomes fragmented (broken into many 
small pieces). If a request then arrives to allocate space for a large variable, the memory manager 
will try to recombine the fragments to make a piece big enough to satisfy the request. The fragments 
must be sorted by address and adjacent ones merged. 

The recombination process takes much longer than a simple allocation. Consequently, in real-time 
applications it is important to analyze the dynamic behavior of programs which use DISPOSE. 

Mixing DISPOSE and RELEASE 

It is also possible to mix the regimes in a well-behaved manner. However, not all implementations 
of HP Pascal allow mixing these methods in a program. A program which does so may not run 
properly on other implementations. 

If you RELEASE a properly MARKed pointer after some calls to DISPOSE, the memory manager 
will leave on the free lists all disposed objects whose addresses are below the released location. All 
the space above the released location becomes free, whether or not it was disposed. 

During this process the memory manager also recombines any adjacent free fragments, so RE- 
LEASE can also be used to reduce fragmentation. Just MARK the current top of the heap, then 
immediately FJELEASE to the same spot. 
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What Can Go Wrong? 

This section discusses some problems which may occur when using the Compiler, and how to solve 
them. 

Can't Run the Compiler 

1. If the system reports, Cannot open 'COMPILER '. the volume with the Compiler is not online. 
You may have removed the volume and not put it back. If the Compiler wasn't found when 
the system booted, you are expected to insert the disc containing the Compiler in the drive 
before invoking it. The system is shipped with the Compiler on the diskette labelled 
CMPASM. 

2. If the system reports, Cannot load 'COMPILER '. either the disc is bad or not enough memory 
is installed in the computer to run the Compiler. It is desirable to have at least 393 Kbytes; the 
system is normally sold with at least 512 Kbytes. 

Errors 900 thru 908 

During compilation, three files are written by the Compiler: the code file, which is the one you want, 
and the REF and DEF files. The latter two are temporary working storage for linkage information 
which is appended to the code file if the compilation terminates normally. All three of these files are 
normally opened on the same volume (the volume to which you directed the code file). 

Each of these files is subject to three classes of error: 

• Error in opening the file. 

• Insufficient space to open the file. 

• File fills up before compilation finishes. 

An error in opening the file usually means the volume is not online. It can also indicate that the 
volume's directory is full. 

The amount of space allocated to the code file is usually half of the largest free area on the volume, 
with the potential to expand to the second half of that area if needed. If you get errors 900, 903, or 
906 you need to make more room on the volume to which the code file was directed, or use a 
different volume. 

The REF file by default is opened with 30 blocks of disk space on the same volume as the code file. 
A Compiler directive at the beginning of the source program can change the size and the volume 
selected for REF. There's no simple rule which gives the "right" size for the REF file. If the file fills 
up (error 907), make it bigger in proportion to the amount of program that remained to compile 
when the error occurred. 

*REF 50$ Allocate 50 blocks 

$REF ' y3 : ' i Put it on volume V3 

$REF 'U4: ' . REF 50* Put it on V4 and allocate 50 blocks 

Exactly analogous remarks hold for the DEF file, except that its default size is 10 blocks and the 
directive is IDE F*. 
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Errors When Importing Library Modules 

There are several errors that can occur when importing modules. 

1. Syntax errors in the interface of an imported library module. This usually indicates that the 
library module itself tried to import some other module which was not found by the Compil- 
er's search algorithm. 

2. Errors 608. 610: Include or import nesting too deep. If module "A" imports "B", which 
imports "C" and so forth, the Compiler must follow the chain to its end. The chain can only 
be 10 imports deep (unless you use the *BEARCH_SIZE* option). Since the same file handling 
mechanism is used to process $ imports and *INCLUDE$ files, the combined limit on import 
and inclusion nesting is 10 deep (unless changed with the$SEARCH_SIZE$ option. 

3. Error 613: Imported module does not have interface text. If the library has been linked by the 
Librarian, the interface specification has been removed. Also, a main program looks internal- 
ly like a module; but it has no interface text. 

Not Enough Memory 

If the Compiler generates error - 2 "Not Enough Memory", there isn't enough room in memory to 
compile the program. You can watch the numbers which appear on the screen in square brackets 
as the compilation proceeds - they show approximately how much memory is left. There are two 
primary reasons for running out of memory during a compilation. One of them is large procedure 
bodies, and the other is permanently loaded ("P-loaded") files. 

Large Procedure Bodies 

When the Compiler processes a procedure, the entire procedure (declarations and body) is scan- 
ned. An internal representation of the procedure, called a '''tree", is built. This tree is not complete 
until the scanner reaches the end of the procedure, and only then does code generation begin. The 
tree form takes a lot of storage, particulariy the statements making up the body. If you write a 
procedure whose body is ten pages long, the Compiler is very likely to run out of memory. The 
moral is that you should keep your procedures reasonably short. A good guideline is that no 
procedure should be longer than a page or two. 

P-loaded Files 

If you've Permanent-loaded a lot of libraries or programs, or space has been allocated to a 
memory-resident mass storage volume, you can reboot the system to recover the memory, and try 
again. 

Insufficient Space for Global Variables 

You may discover, either at compile time or at run time, that there isn't sufficient space for the 
global variables of your program. If this happens, please refer to the Implementation Restrictions 
section in this appendix, which explains the limitations and what to do if you exceed them. 

Errors 403 thru 409 

These errors should never be reported by the operating system. They usually indicate a malfunction 
in the Compiler itself. (Although one may occur due to a strange coding error.) If this ever happens, 
please show the program which causes it to your HP field support contact. 
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Error Messages 

This section contains all of the error messages and conditions that you are likely to encounter during 
the operation of your workstation. 

• Run time errors - These may occur when you are running a program. 

• 1/0 related errors - When run-time error - 10 occurs, there has been a problem with the I/O 
system. The operating system then prints a message from the 1/0 error list. 

• I/O LIBRARY errors - When run-time error - 26 occurs, there has been a problem in an I/O 
LIBRARY procedure. 

• Graphics LIBRARY errors - When run-time error -27 occurs, there has been a problem in a 
graphics LIBRARY procedure. 

• Compiler syntax errors - During the compilation of a program, any of these errors may occur. 
The compiler will show the number of the error and you can look it up. 

Unreported Errors 

Certain errors in Pascal programs are not reported by this implementation. 

• Disposing a pointer while in the scope of a WITH referencing the variable to which it points. 

• Disposing a pointer while the variable it points to is being used as a VAR parameter. 

• Disposing an uninitialized or NIL pointer. 

• Disposing a pointer to a variant record using the wrong tagfield list. 

• Assigment to a FOR-loop control variable while inside the loop. 

• GOTO into a conditional or structured statement. 

• Exiting a function before a result value has been assigned. 

• Changing the tagfield of a dynamic variable to a value other than was specified in the call to 
NEW. 

• Accessing a variant field when the tagfield indicates a different variant. 

• Negative field width parameters in a WRITE statement. 

• The underscore character "_" is allowed in identifiers. This is permitted in HP Pascal, but is not 
reported as an error when compiling with *ANSI$ specified. 

• Value range error is not always reported when an illegal value is assigned to a variable of type 
SET. 
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Operating System Run Time Error Messages 

Errors detected by the operating system during the execution of a program generate one of the 
following error messages. 

When using the TRY.. RECOVER construct, the following numbers correspond to the value of 

ESCAPECODE, 

Normal termination. 

-1 Abnormal termination. 

-2 Not enough memory. 

-3 Reference to NIL pointer. 

-4 Integer overflow. 

-5 Divide by zero. 

-6 Real math overflow. (The number was too large.) 

-7 Real math underflow. (The number was too small.) 

-8 Value range error. 

-9 Case value range error. 

-10 Non-zero lORESULT. 

-11 CPU word access to odd address. 

-12 CPU bus error. 

-13 Illegal CPU instruction. 

-14 CPU privilege violation. 

-15 Bad argument - SIN/COS. 

-16 Bad argument - Natural Log. 

-17 Bad argument SQRT. (Square root.) 

-18 Bad argument - real/BCD conversion. 

-19 Bad argument - BCD/real conversion. 

-20 Stopped by user. 

-21 Unassigned CPU trap. 

-22 Reserved 

-23 Reserved 

-24 Macro Parameter not 0.. 9 or a.. z 

-25 Undefined Macro parameter. 

-26 Error in 1/0 subsystem. 

-27 Graphics error. RAM Parity error. 

-29 Misc. floating-point hardware error. 
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lO Errors 

These error messages are automatically printed by the system unless you have enclosed the 
statement in a TRY-RECOVER construct. Within a RECOVER block, when ESCAPECODE = - 10, 
one of the following errors has occurred. You can determine which error if you examine the system 
variable 10 RESULT. 






No 1 error reported. 


28 


1 


Parity (CRC) incorrect. 


29 


2 


Illegal unit number. 


30 


3 


Illegal I/O request. 




4 


Device timeout. 


31 


5 


Volume went off-line. 


32 


6 


File lost in directory. 


33 


7 


Bad file name. 


34 


8 


No room on volume. 


35 


9 


Volume not found. 


36 


10 


File not found. 


37 


11 


Duplicate directory entry. 


38 


12 


File already open. 


39 


13 


File not open. 


40 


14 


Bad input format. 


41 


15 


Disc block out of range. 


42 


16 


Device absent or unaccessible. 


43 


17 


Media initialization failed. 


44 


18 


Media is write protected. 


45 


19 


Unexpected interrupt. 


46 


20 


Hardware /'media failure. 


47 


21 


Unrecognized error state. 


48 


22 


DMA absent or unavailable. 


49 


23 


File size not compatible with type. 


50 


24 


File not opened for reading. 


51 


25 


File not opened for writing. 


52 


26 


File not opened for direct access. 




27 


No room in directory. 





String subscript out of range. 

Bad file close string parameter. 

Attempt to read or write past end-of-file 
mark. 

Media not initialized. 

Block not found. 

Device not ready or medium absent. 

Media absent. 

No directory on volume. 

File type illegal or does not match request. 

Parameter illegal or out of range. 

File cannot be extended. 

Undefined operation for file. 

File not lockable. 

File already locked. 

File not locked. 

Directory not empty. 

Too many files open on device. 

Access to file not allowed. 

Invalid password. 

File is not a directory. 

Operation not allowed on directory. 

Cannot create 
/W0RKSTAT10NS/TEMP_ FILES, 

Unrecognized SRM error. 

Medium may have been changed. 

10 result was 52. 
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I/O LIBRARY Errors 

When run-time error - 26 occurs, there has been a problem in an 1/0 LIBRARY procedure. The 
operating system puts a value in the system variable I0E_ RESULT. By importing the IODECLARATIONS 
module, you can access IOE_reS!JLT and call the IOERROR_MESSAGE function, which returns the error 
description. For example; 

$SYSPROG ON* 

IMPORT iodeclarations 

BEGIN 
TRY 

1 . . { s t a t e III e n t s I 
RE COMER 

IF escaPBCode = ioescapeoode 

THEN writeln ( i oe r ro r.iness a Se ( i o e_ res u.l I ) ) i 
e s c a p e ( e 5 a p e d e ) i 
END. 

ESCAPE is a procedure you can call and escapecode is a variable you can access when you use the 
$SYSPRDG ON* compiler directive. IOESCAPECODE is a constant (equal to -26) you can import from 

the IODECLARATIONS module. 



1 No error. 

2 No card at select code. 

3 Not active controller. 

4 Should be device address, 
not select code. 

5 No space left in buffer. 

6 No data left in buffer. 

7 Improper transfer attempted. 

8 The select code is busy. 

9 The buffer is busy. 

10 Improper transfer count. 

11 Bad timeout value. 

12 No driver for this card. 

13 No DMA. 

14 Word operations not allowed. 

15 Not addressed as talker. 

16 Not addressed as listener. 

17 A timeout has occurred. 



18 Not system controller. 

19 Bad status or control. 

20 Bad set/clear/test operation. 

21 Interface card is dead. 

22 End/eod has occurred. 

23 Miscellaneous - value of parameter error. 
306 Data-Comm interface failure. 

313 USART receive buffer overflow. 

314 Receive buffer overflow. 

315 Missing clock. 

316 CTS false too long. 

317 Lost carrier disconnect. 

318 No activity disconnect. 

319 Connection not established. 

325 Bad data bits/parity combination. 

326 Bad status/control register. 

327 Control value out of range. 



360 Workstation 



Graphics Library Errors 

When run-time error - 27 occurs, there has been a problem in a graphics LIBRARY procedure. 

By importing the DGL_LIB module and enclosing the main body in a TRY-RECOVER statement, 
you can call the GRAPHICSERROR function which returns an INTEGER value you can cross 
reference with the numbered list of graphics errors. For example: 

*SYSPROG ON* 

i * I 

import DGL_LIB 

I 4 i 

BEGIN 
TRY 

It. {statements} 
RECOUER 

IF escapecode = -27 

THEN writeln ('Graphics error * '' t S raph i cs e r ro r i 

' has occurred') 
ELSE escape(escapecode)i 
END. 

You may wish to write a procedure which takes the INTEGER value from GRAPHICSERROR and 
prints the description of the error on the CRT. You could keep this procedure with your program or, 
for more global use. in SYSVOL: LIBRARY. 

No error. {Since last call to graphicserror or init_graphics. } 

1 The graphics system is not initialized. 

2 The graphics display is not enabled. 

3 The locator device is not enabled. 

4 ECHO value requires a graphic display to be enabled. 

5 The graphics system is already enabled. 

6 Illegal aspect ratio specified. 

7 Illegal parameters specified. 

8 The parameters specified are outside the physical display limits. 

9 The parameters specified are outside the limits of the window. 

10 The logical locator and the logical display use the same physical device. {The logical 
locator limits cannot be redefined explicitly. They must correspond to the logical view 
surface limits. } 

11 The parameters specified are outside the current virtual coordinate system boundary. 

12 The escape function requested is not supported by the graphics display device. 

13 The parameters specified are outside of the physical locator limits. 
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Pascal Compiler Errors 

The following errors may occur during the compilation of a HP Pascal program. 



ANSI/ISO Pascal Errors 

1 Erroneous declaration of simple type 

2 Expected an identifier 

4 Expected a right parenthesis ")'' 

5 Expected a colon ":" 

6 Symbol is not valid in this context 

7 Error in parameter list 

8 Expected the keyword OF 

9 Expected a left parenthesis "(" 

10 Erroneous type declaration 

11 Expected a left bracket "['" 

12 Expected a right bracket "]" 

13 Expected the keyword END 

14 Expected a semicolon ";" 

15 Expected an integer 

16 Expected an equal sign " = " 

17 Expected the keyword BEGIN 

18 Expected a digit following '.' 

19 Error in field list of a record declaration 

20 Expected a comma "," 

21 Expected a period "." 

22 Expected a range specification symbol "..' 

23 Expected an end of comment delimiter 

24 Expected a dollar sign "$". 

50 Error in constant specification 

51 Expected an assignment operator ": = " 

52 Expected the keyword THEN 

53 Expected the keyword UNTIL 

54 Expected the keyword DO 

55 Expected the keyword TO or DOWNTO 

56 Variable expected 

58 Erroneous factor in expression 

59 Erroneous symbol following a variable 



98 Illegal character in source text 

99 End of source text reached before end of 
program 

100 End of program reached before end of source 
text 

101 Identifier was already declared 

102 Low bound > high bound in range of con- 
stants 

103 Identifier is not of the appropriate class 

104 Identifier was not declared 

105 Non-numeric expressions cannot be signed 

106 Expected a numeric constant here 

107 Endpoint values of range must be compatible 
and ordinal 

108 NIL may not be redeclared 

110 Tagfield type in a variant record is not ordinal 

111 Variant case label is not compatible with tag- 
field 

113 Array dimension type is not ordinal 

115 Set base type is not ordinal 

117 An unsatisfied forward reference remains 

121 Pass by value parameter cannot be type FILE 

123 Type of function result is missing from declara- 
tion 

125 Erroneous type of argument for built-in 
routine 

126 Number of arguments different from number 
of formal parameters 

127 Argument is not compatible with correspond- 
ing parameter 

129 Operands in expression are not compatible 

130 Second operand of IN is not a set 

131 Only equality tests ( =, <> ) allowed on this 
type 

132 Tests for strict inclusion ( <, > ) not allowed 
on sets 
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133 Relational comparison not allowed on this 
type 

134 Operand(s) are not proper type for this opera- 
tion 

135 Expression does not evaluate to a boolean re- 
sult 

136 Set elements are not of ordinal type 

137 Set elements are not compatible with set base 
type 

138 Variable is not an ARRAY structure 

139 Array index is not compatible with declared 
subscript 

140 Variable is not a RECORD structure 

141 Variable is not a pointer or FILE structure 

143 FOR loop control variable is not of ordinal 
type 

144 CASE selecter is not of ordinal type 

145 Limit values not compatible with loop control 
variable 

147 Case label is not compatible with selector 

149 Array dimension is not bounded 

150 Illegal to assign value to built-in function 
identifier 

152 No field of that name in the pertinent record 

154 Illegal argument to match pass by reference 
parameter 

156 Case label has already been used 

158 Structure is not a variant record 

160 Previous declaration was not forward 

163 Statement label not in range 0.9999 

164 Target of nonlocal GOTO not in outermost 
compound statement 

165 Statement label has already been used 

166 Statement label was already declared 

167 Statement label was not declared 

168 Undefined statement label 

169 Set base type is not bounded 

171 Parameter list conflicts with forward declara- 
tion 



177 Cannot assign value to function outside its 
body 

181 Function must contain assignment to function 
result 

182 Set element is not in range of set base type 

183 File has illegal element type 

184 File parameter must be of type TEXT 

185 Undeclared external file or no file parameter 

190 Attempt to use type identifier in its own dec- 
laration 

300 Division by zero 

301 Overflow in constant expression 

302 Index expression out of bounds 

303 Value out of range 

304 Element expression out of range 

400 Unable to open list file 

401 File or volume not found 

403.. Compiler errors 
409 

Compiler options 

600 Directive is not at beginning of the program 

601 Indentation too large for $PAGEWIDTH 

602 Directive not valid in executable code 

604 Too many parameters to $SEARCH 

605 Conditional compilation directives out of order 

606 Feature not in Standard PASCAL flagged by 
$ANSI ON 

607 Feature only allowed when $UCSD enabled 

608 $INCLUDE exceeds maximum allowed depth 
of files 

609 Cannot access this $INCLUDE file 

610 $INCLUDE or IMPORT nesting too deep to 
IMPORT < module-name > 

611 Error in accessing library file 

612 Language extension not enabled 

613 Imported module does not have interface text 

614 LINENUM must be in the range 0.. 65535 
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620 Only first instance of routine may fiave 
$ALIAS 

621 $ ALIAS not in procedure or function header 

646 Directive not allowed in EXPORT section 

647 Illegal file name 

648 Illegal operand in compiler directive 

649 Unrecognized compiler directive 

Implementation restrictions 

651 Reference to a standard routine that is not im- 
plemented 

652 Illegal assignment or CALL involving a stan- 
dard procedure 

653 Routine cannot be followed by 
CONST,TYPE,VAR, or MODULE 

655 Record or array constructor not allowed in ex- 
ecutable statement 

657 Loop control variable must be local variable 

658 Sets are restricted to the ordinal range .. 255 

659 Cannot blank pad literal to more than 255 
characters 

660 String constant cannot extend past text line 

661 Integer constant exceeds the range im- 
plemented 

662 Nesting level of identifier scopes exceeds max- 
imum (20) 

663 Nesting level of declared routines exceeds 
maximum (15) 

665 CASE statement must contain a non- 
OTHEFWISE clause 

667 Routine was already declared forward 

668 Forward routine may not be external 

671 Procedure too long 

672 Structure is too large to be allocated 

673 File component size must be in range 
L. 32766 

674 Field in record constructor improper or missing 

675 Array element too large 

676 Structured constant has been discarded (cf. 
$SAVE_CONST) 



677 Constant overflow 

678 Allowable string length is L.255 characters 

679 Range of case labels too large 

680 Real constant has too many digits 

681 Real number not allowed 

682 Error in structured constant 

683 More than 32767 bytes of data 

684 Expression too complex 

685 Variable in READ or WRITE list exceeds 
32767 bytes 

686 Field width parameter must be in range 0. .255 

687 Cannot IMPORT module name in its EXPORT 
section 

688 Structured constant not allowed in FOR- 
WARD module 

689 Module name may not exceed 15 characters 

696 Array elements are not packed 

697 Array lower bound is too large 

698 File parameter required 

699 32-bit arithmetic overflow 

Non-ISO Language Features 

701 Cannot dereference ( '^ ) variable of type 
anyptr 

702 Cannot make an assignment to this type of 
variable 

704 Illegal use of module name 

705 Too many concrete modules 

706 Concrete or external instance required 

707 Variable is of type not allowed in variant re- 
cords 

708 Integer following # is greater than 255 

709 Illegal character in a "sharp" string 

710 Illegal item in EXPORT section 

711 Expected the keyword IMPLEMENT 

712 Expected the keyword RECOVER 

714 Expected the keyword EXPORT 

715 Expected the keyword MODULE 
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716 Structured constant has erroneous type 

717 Illegal item in IMPORT section 

718 CALL to other than a procedural variable 

719 Module already implemented (duplicate con- 
crete module) 

720 Concrete module not allowed here 

730 Structured constant component incompatible 
with corresponding type 

731 Array constant has incorrect number of ele- 
ments 

732 Length specification required 

733 Type identifier required 

750 Error in constant expression 

751 Function result type must be assignable 

900 Insufficient space to open code file 

901 Insufficient space to open ref file 

902 Insufficient space to open def file 

903 Error in opening code file 

904 Error in opening ref file 

905 Error in opening def file 

906 Code file full 

907 Ref file full 

908 Def file full 
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